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TSSLE: 



. TITLE TSSLE 

. ENABL LC 

. ENABL AHA 

. DSABL GBL 

. CBECT TSSLE 

. RAD50 /SLE/ 



TSX-Plus Sintfle Line Editor- 



i Overlay region id 



TSSLE is the TSX-Piius system overlay module that contains routines 
to implement the single line editor. 

Copyright (c) 1983, i9CJ4, 1985. 
S.!<<H Computer Systemsj Inc. 
Nashville/ Tennessee USA 
All rights reserved. 

Oiobal definitions 

, GLOBL GTSLCH 

1 o b B 1 r e f e r e n c e s 

. OLOBL SLOVER, SLRPTR, SLCYC 1 , SLCYC2 

. OLOBL fVBELL, «PWKEY, LSWl 1, LNPRIM, $V52EM, SLSPTR, SLDOWN 

. OLOBL VVLSCH, *CTRLW, MAXSEC, DOSWIT, *1ESC, *WDISP, WINDSP 

. OLOBL KT*LET> KT#G1 T> $SLLET, LWINDO, WPWCH. WINPRT 

. OLOBL VKEYMX, KD$COD, KD*FLG, KD*TXT, KD**SZ, KF*ECO. KF*TRM 

. OLOBL KT*NRM, KT*Oi D, KC*E1> KC*E2. KC*E3> KC*E4, KC*E5- KC*E6 

. OLOBL KC*F6> KC*F7. KCIiFS, KC$F9, KC$F10> KC*F1 1 , KC*F12, KC«F13 

, OLOBL KC*F14, KC«F1 5, KC*Fi6. KC*F17, KC^FIB, KC*F19. KC*F20 

. OLOBL KC*MIN, KC^ENT, KC*COM, KCfDOT, KC*PF1, KC*PF2, KC*PF3, KC*PF4 

. OLOBL KC*KPO, KC*KP1 .. KC*KP2, KC*KP3, KC*KP4> KC*KP5, KC«KP6 

, OLOBL KC*KP7.. KC$KP8. KC«KP9> KC*LFT, KC*RIT, KC*UP, KC*DWN, VPAR6 

. OLOBL SLCBUF. SIGWAT. LSW6, CTRLQ, LF, LFWLIM, LTRMTP, KEYPAR 

. OLOBL LOGFLO> LF*IN, SLLBUF, LRBFIL, LCOL, INTPRI, LHIPCT 

. OLOBL SLOPTR, SLECOL, LSPACT, BKSPAC, SLCX, VT52, TAB, *XSTOP 

. OLOBL SLSCDL, SLCCOL, PR7, LSW3, STOP, LTTPAR, *NDIN, LOGCR, CHKABT 

, OLOBL SLGOLD, V1NT2 0, LACTI V, QHDSPN, KPAR6, OR, PSW 

. OLOBL LOGCHR, LW3PAC, S^INWT, SLEBUF, SLMXLN, BELL, LINPNT 

. OLOBL OVRHC, *DBGMD, SLDBUF.. LAFSIZ, DELCHR, *DISCN 

. OLOBL ESC, QUECHR, $NOLF, $LC, LSW2, LCBIT, LJSW, *SLINI, LSW7 

. OLOBL LSCCA.. SLCR.. 1»ECH0, LRTCHR, *SLKED, SLBACK, SLSBUF, LINCNT 

. OLOBL VTIOO, LITIMF, VOUANl , LSTATE, S*TTFN, ENQTL, *SUCF, LSW9 

. OLOBL ANOINT, SLLPTR, SLLEND.. RUBOUT, *NDICP, LSWIO 

. OLOBL CSICHR, SS3CHR.. SLCSBF, SLCSBX, SLCSPT, SLCSR, NEDCDI 

. OLOBL $DETCH, LSW 



Macro definitions: 

. MACRO DISABL 

BIS #PR7, ©#PSW 

. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI, (^tPSW 

. ENDM ENABL 

. MACRO OCALL FNTADD 



; DISABLE INTERRUPTS 



.; ENABLE INTERRUPTS 
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. ENDC 

CAI L 

. WORD 
. HNDM 



B, ENTADD 

.ERROR .:OCA!..L without entry addresB 

OVRHC 

ENTADD 

OCALL 



The TTMAP and TTtiAPX macTos are used to map kernel-mode par6 to the 

terminal character buffer art^a. The previous contents of par6 map 

refjister are pushed on the stack and may be restored by using the 

UNMAP or UNMAPX macros. 

Rl must contain the line index number of the line whose buffers 

are being accessed. 

The difference between the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 

macros is that the X-verEJions arts more efficient but may only be 

used from within interrupt service routines where we are guaranteed 

to be running on the f-yr-tem &tack. 

The TTHAP and UNMAP versions of the macros must only be 

used in sections of code where the interrupts are disabled, 

. MACRO TTMAP .V 

MOV LTTPAR ( R 1 ) , e#KPAR6 

. EMDM TTMAP X 

. MACRO UNMAPX 
. ENDM UNMAPX 

. MACRO TTMAP 

MOV @#KP AR 6 , MAPI ^i D 

MOV LTTPAR ( R 1 ) , <',-#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, e#KPAR6 

. ENDM UNMAf' 

The KEYMAP macro is used to map KPAR6 to the local region that has 
the user key definitions. Use the KEYUMP macro to restore mapping. 

. MACRO KEYMAP 

MOV e#KPAR6j NAP! IIJ) 

DlEiABL 

MOV KEYPAR, <gliKPAR6 

. ENDM KEYMAP 

. MACRO KEYUMP 

MOV MAPHLD, e#K!'AR6 

ENAEL 

. ENDM KEYUMP 

The KEYCHK macro is used to call the KEYSRC routine to see if a specific 

key has been defined by the tiser. 

The argument to KEYCHK is the key code. 

. MACRO KEYCHK KEYCOD 
viSR R5.. KEYCK 
. WORD KEYCOD 
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ENDM KEYCHK 



; Data areas 
MAPHLD; . WORD O 



Temp cell used by TIMAP macro 
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Get next character from Biruj 1 e-1 ine editor 



SBTTL GTSLCH 



i-.et next character from single-line editor 



000004 010246 



000006 032761 0000000 OOOOOOG 

000014 ooioo;-' 

000016 004737 000176' 



OTSLCH is called to pf?t from the single-line editor the next character 
to pass to the program. 

J n p 11 1 1^ : 
R 1 •= V.J o b index n u f n b f i ■ . 

Outputs: 
RO = Next character to pass to program. 

rrSLCH: NOV R2. -<SP) 

Perform initialization if this is the first call for this line 

BIT #*SLINI, LSW7< HI).; Have we done initialization for this line? 

BNE 1$ ; Br if ye& 

CALL SLINIT ; Initialize for line 



See if lue have a complete- line ready yet. 



000022 013702 
000026 001404 



000030 1 1 2200 
000032 OOlOOft 



0000000 



1*: 



MOV 
BE<3 



SLOPTR. R2 
2* 



Oet ne:<t output character 



MOVB 
BNE 



<R2)+, RO 
3* 



.; Do we have any characters ready to go7' 
; Br if not 



i Get next output character 
; Br if got a character 



We have finished passing the last line to the program. 
Initialize for a new lint:-. 



000034 004737 000176' 



CALL 



SLINIT 



/Initialize for a new line 



000040 004737 000102 



000044 000766 



000046 010237 0000000 



000052 032761 OOOOOOG OOOOOOG 

000060 001006 

000062 013761 OOOOOOG OOOOOOG 

000070 013761 OOOOOOG OOOOOOG 



; There are no characters available to be passed to program. 
■> See if there are any pending input characters that need 
■> to b{? processed. 

i 

2-^: CALL SLINCH ; Check for pending input characters 

i Now go back and see if we have any characters ready for output 
BR 1 $ 

We have a character for the program 
3«: NOV R2, SLOPTR i Save updated output character pointer 

See if we need to reset the "interactive" timer for this job 



56 
57 



B J T 
BNE 
MOV 
MOV 

F i n i s h e d 



#*NOINT.. LSW7(R1 ) ils program being run non-interactively? 

4* i Br if yes 

VINTIO. LHIPCT<H1) ; Reset high-priority hit limit for job 

VQUANl.. L;rnME<Rl) ; Reset interactive CPU time limit 
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GTBLCH - Get next churocter t'l-uni &in<jle-line ed:ltor 

5B 000076 0j.260;^ 4'-^: MOV <SP)+. Ri' 

59 OOOIOO 000207 RETURN 
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r a n y :l * i j? u t c: h a r acters need to be p r o c £? s s e d 



000102 
000104 



000106 
000114 
000 U 6 
000124 



000130 
000134 



000136 
000142 



000144 
000150 
000156 
000162 



SBTTL SLINCH 



Gee if- any input characters need to be processed 



010246 

010546 



032761 0000000 0000000 

00140ft 

052761 0000000 OOOOOOG 

004737 0000000 



005761 OOOOOOG 
001003 



SLINCH is called to see if there aTB any characters pending in the 

terminal input buffer that need to be processed by the single 

1 ine ed i tor. 

This routine waits for an input character to be received* processes iti 

and then returns. 

I n p u t s : 
Rl = Line index numbc'r. 



SLINCH: MOV 

MOV 



004737 007030 ' 
00077P 



016102 OOOOOOG 

042700 177400 
010005 



000164 004737 000350 "' 



000170 
000172 
000174 



012605 
1 260;^ 
000207 



R2, -(SP) 
R5, -((jP) 



Abort the job if a detached job is trying to do input from the terminal 



BIT #*DErCH. I,.SW<R1) 

BFO 1* 

BIS #*DISCN, i,.SW<Ri> 

CALL STOP 



Is this a detached job? 
Or if not 

Abort the detached job 
Stop execution of job 



See if there are arm characters in the terminal input buffer 



TST LINCNT(Rl.i 
BNE 2* 



i Are there any chars in input buffer? 

i Qt if yes 



There are no pending character! 
Wa i t until me get on e . 



CALL 
BR 



INWAIT 
1* 



i Wait for a character to arrive 
J Go try again 



There are pending input characters. 

Get the next character out of the input buffer. 



MOV LINPNT(R1),R2 

OCALL DELCHH 

BIC #--C377, RO 

MOV RO, R5 

Process the character 

CALL PRCHAR 



Get address of next character to get 

Get character from buffer 

Clear ail but low order 8 bits of character 

Put character we got in R5 



j Process the character 



Return to higher-level routine to see if lue have a complete 
1 i n e r e a d y yet. 

MOV <SP>+, R5 
MOV (SP>+, R2 
RETURN 
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. SBTTL SLINIT — Initialize for new get line 

.: SLIWIT is called each timp we be^in to acquire a new input line. 

i 1 n p u t s : 

; Ri = Job index number. 



000176 010546 



SLIWrr: MOV 



R5, -(SP) 



000200 032761 0000000 OOOOOOQ 

000206 00 1 402 

000210 004737 011152' 



000214 005037 OOOOOOG 



000220 105037 0000000 



000224 105037 OOOOOOG 



000230 005037 OOOOOOG 



000234 105037 OOOOOOG 



000240 105037 OOOOOOG 



000244 105037 OOOOOOG 

000250 012737 OOOOOOG OOOOOOG 



000256 116100 OOOOOOG 

000262 010037 OOOOOOG 

000266 010037 OOOOOOG 

000272 010037 OOOOOOG 



000276 005737 OOOOOOG 

000302 00 1 003 

000304 012737 OOOOOOG OOOOOOG 



If SL is in KLD mode> send control sequence to terminal to put 
numeric keypad into alternate mode. 

BIT #*SLKED.. LSW7<R1 >i Are we in KED mode? 

BE(i 1* ; Br if not 

CALL AKEYON j Turn on alternate keypad mode 

Say no line is ready to be sent to program 

l<ii: CLR SLOPTR i Ho output line ready 

Say Gold key <PF1) is not pending 

CLRB SLGOLD ;Gold key not pending 

Say carriage return not pending 

CLRB SLCR .; Carriage return was not last character 

Bay we are not processinti a terminal control sequence 

CLR SLCSR iNot processing terminal control sequence 

Set direction to forward 

CLRB SLBACK ; Set direction = forward 

Say we are not in overstrike mode 

CLRB SLOVER j Mot in overstrike mode 

Clear edit buffer and initialize cursor to point to 1st character 



CLRB 
MOV 



SLEBUF 
ttSLEBUF.. SLCX 



; Store null as Ist char in edit buffer 
iSay cursor is pointing to 1st character 



Set up cursor display position for left end of line 



MOVB 
MOV 
MOV 
MOV 



LC0L<R1 ), RO 
RO. SLSCDL 
R0> SLECOL 
RO, SLCCOL 



Get column number of start of field 
Set this as start-of -1 ine column 
Set this as end-of-line column 
Set as cursor display column 



Initialize to point to most recent saved line 

TST SLSPTR ^Has save-line pointer been initialized? 

BNE 2* ; Br if yes 

MOV #SLLBUF.- SLSPTR i Most recently saved line position 
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— Initialize for- new get lint 

000312 013737 OOOOOOG OOOOOOG 2$: MDV SLSPTR> SLLPTU i Bet up-arrow pointt?r to most recent line 

i Set flag saying initial i xation has been done for this line 

000320 052761 OOOOOOG OOOOOOG BIB #*SLINI> LSW7 (Ri ) ; Set initialization-done flag 

See if we need to recall a line 



000326 013705 OOOOOOG 

000332 001404 

000334 004737 007672 ' 

000340 005037 OOOOOOG 



000344 01260!3 
000346 000207 



7$: 



MOV 


SLRPTR, R5 


BE« 


9* 


CALL 


RSTLIN 


CLR 


SLRPTR 


f ~ i n i 5 h e d 




MOV 


<SP)+, R!:, 


RETURN 





ils a recall pending? 

i Br if not 

^Restore the line 

; Say recall has been done 
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010246 
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000352 


010346 




10 


000354 


010546 




u 








12 








13 








14 


000356 


004737 


001144- 


15 


000362 


103026 




16 








17 








IS 








19 


000364 


013700 


OOOOOOG 


20 


000370 


001402 




21 


000372 


004710 




22 


000374 


000421 




23 








24 








25 








26 


000376 


005737 


0000000 


27 


000402 


001414 




28 


000404 


010500 




29 


000406 


105737 


0000000 


30 


000412 


001403 




31 


000414 


052700 


ooooooc 


32 


000420 


000402 




33 


000422 


052700 


ooooooc 


34 


000426 


004737 


011256' 


35 


000432 


103402 




36 








37 








38 








39 








40 


000434 


004737 


000450 •' 


41 








42 








43 








44 


000440 


012605 




45 


000442 


012603 




46 


000444 


012602 




47 


000446 


000207 





Proresij a character rereivGd from the terminal. 

I n p u t & : 
Rl ■■= Job's virtual line index number. 
R!> = Received character. 



PRCHAR; MOV 
MOV 
MOV 



R2, "<SP) 
R3, -(SP) 
R5i -i&P) 



Determine if this character begins a terminal control sequence 



CALL 
BCC 



CSCHK 
9* 



; Check for control sequence start 
; Br if start of control sequence 



MOV 


SLCSR, RO 


BEQ 


3* 


CALL 


<R0) 


BR 


9* 



3*: 



8*: 
2*: 



See if we are currently accepting a terminal control sequence 

Are we processing a control sequence? 
Br if not 

Call routine to process this character 
Finished mith this character 

Determine if this is a uter-defined key 

iAre there any user-defined keys? 

; Br if not 

.: Oet the character 

i Was gold key pressed? 

i Br i f not 
#KT*GLT«-400, RO i Say this is a gold letter 
2* 
#KT$LET*400> RO ; Say this is a regular letter 

iSee if key is ubbt defined 

i Br if this is a user-defined key 

Process ordinary characters that are not part of control sequences 
and that are not user-dpf ined keys. 

i Process an ordinary character 



TST 


KEYPAR 


BEQ 


5* 


MOV 


R5, RO 


TSTB 


SLGOLD 


BEQ 


8* 


BIS 


#KT*GL 


BR 


2* 


BIS 


#KT$LE 


CALL 


KEYSRC 


BCS 


9* 



5$; CALL 


ORDCHR 


> Finish e d 




9*: MOV 


(SP)+, R5 


MOV 


<SP)+,R3 


MOV 


<SP)+>R2 


RETURN 





: t 



TSBLE — 
ORDCHR - 



TSX-PluB Single 

Process ordini; 



3 
4 








5 








6 








7 








8 








9 


000450 






iO 








11 








12 








13 


000450 


105737 


0000000 


14 


000454 


001426 




15 








16 








17 








18 


000456 


120527 


000123 


19 


000462 


00 1 403 




20 


000464 


120527 


000163 


21 


000470 


001005 




22 


000472 


105037 


0000000 


23 


000476 


004737 


004462 ' 


24 


000502 


000443 




25 








26 








27 








28 


000504 


120527 


000130 


29 


000510 


001403 




30 


000512 


120527 


000170 


31 


000516 


001005 




32 


000520 


105037 


0000000 


33 


000524 


004737 


004514' 


34 


000530 


000430 




35 








36 








37 








38 


000532 


032761 


0000000 


39 


000540 


001006 




40 








41 








42 








43 


000542 


004737 


000774 ' 


44 


000546 


10302;! 




45 








46 








47 








48 


000550 


004737 


001074' 


49 


000554 


103016 




50 








51 








52 








53 


000556 


020527 


000037 


54 


000562 


101003 




55 


000564 


004737 


005406 ' 


56 


000570 


000410 




57 


000572 


120527 


0000000 
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■ ry charactfrs 



. SBTTL ORDCHR -■- f'corer-s ordinary character-B 

ProcBss ordinary chsracttrG <both control and non-control). 

1 n p u t B : 
Rl = -Job index number 
F{5 ~ Received character 

ORDCHR: 

See if Gold key was pret&ed 



TSTB 
BEQ 



SLGOLD 
1* 



i Was gold key pres&ed' 
; Br if not 



Oold key was pressed. Check for Oold-S. 



CMPB 


R5, #'S 


BEQ 


2* 


CMPB 


R5,#'f. 


BNE 


3* 


CLRB 


SLGOLD 


CALL 


KBS 


BR 


9* 



Gold-S? 

Br if yes 

Gold"B? 

Br if not 

Reset Gold flag 

Gold-S =~y Save command 



Check for Gold-X. 



3$: 



10*: 



CMPB 


R5, #'X 


BEQ 


10* 


CMPB 


R5, #'x 


BWE 


1* 


CLRB 


SLGOLD 


CALL 


KBX 


BR 


9* 



Gold-X? 

Br if yes 

Goid-x? 

Br if not 

Reset Gold flag 

Gold-X ==> Recall command 



If debugger is in control, bypass some special chavactev processing 

BIT #*DBGMD, LSW6(R1 )Ms debugging program in control? 
BME 6* i If yes then bypass some checking 

See if this is a user-defined activation character 



CALL 
BCC 



CKUAC 
9* 



i See if this is a user-defined activation char 
i Br if it is a user-defined activation char 



See if this is a read-time activation character 



CALL 
BCC 



CKRDTM 
9* 



J See if this is a read time-out character 

.; Br if it is 



Determine if this is a normal or control character 



6*: 



4*: 



CMP 


R5, #37 


BHI 


4* 


CALL 


DOCTRL 


BR 


9$ 


CMPB 


R5, #RUB0U1 



i Is this a normal or control char? 

i Br if not control character 

j Process a control character 

ils this a rubout character? 
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ORDCHR — Process ordin.rry characters 



58 000576 001003 

59 000600 004737 006752' 

60 000604 00040^ 

61 000606 004737 000614' 
62 

o3 
64 
65 000612 000207 



BNE 


7* 


CALL 


ICPRUB 


BR 


9* 


7*: CALL 


REGCHR 


> Finished 




9*: RETURN 





.; Br if not 

; Process rubout character 

; Process a normal character 
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RHGCHR — Process normal charac teTS- 
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23 
24 
25 
26 



3 
4 
5 
6 
7 
8 
9 000614 

10 000616 

11 000620 

12 000622 
13 

14 
15 

16 000624 

17 000632 

18 000634 

19 000642 

20 000646 

21 000650 

22 000654 
000656 
000664 
000672 
000700 

27 000702 

28 000710 
29 

30 
31 

32 000712 

33 000714 
34 

35 
36 

37 000720 

38 000724 

39 000726 

40 000732 

41 000734 

42 000740 

43 000742 
44 

45 
46 
47 

48 000746 

49 000752 

50 000756 
51 

52 
53 

54 000762 

55 000764 

56 000766 

57 000770 



010246 
010346 
010446 
010546 



032761 
001427 
042761 
162705 
002445 
020527 
003042 

052761 
032761 
001430 

000424 



110500 
004737 



105737 
00 1 403 
004737 
000405 
012702 
110012 
004737 



105037 
005037 
105037 



01 260 S 
1 2604 
012603 
012602 



. SBTTL REGCHR — f^rocft'ss normal characters 

Process normal (non-c nntro 1 ) characters. 

Inputs: 
Rl = Virtual line index number. 
R5 " Current input character. 



REGCHR: MOV 
MOV 
MOV 
MOV 



R2, -<»p) 
R3, -<SP) 
R4> -(SP) 
R5. -<SP) 



0000000 OOOOOOG 

OOOOOOG OOOOOOG 
000060 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



See if this is part of a request to switch to a virtual line 

BIT #*CTRLW. LSW3<R1 ); Was ctrl-W the last character? 

BE« 1* i Br if not 

BIC #*CTRL.W, LSW3<Ri); Say ctrl~W no longer the last char 

SUB #'0/R5 i Convert digit to binary value 

BLT 9* .; Br if char after ctrl~W not a digit 

CMP R5, ttMAXSEC ; Don't exceed max line # allowed 

BGT 9* ; Br if too big 

OCALL DOSWIT ; Switch to a virtual line 

BIS #*VBELL, LSW9<R1 ); Suppress bell ring on next SL read 

BIT #fWDISP, LSW6<Ri )i Do we need to redisplay our window? 

BEQ 94 i Br if not 

OCALL WINDSP ; Redisplay window for job 

BR 9$ 



Translate character to upper case 



1«: 



011052' 

OOOOOOG 
010054' 
OOOOOOG 
010126' 



MOVB 
CALL 



R5, RO 
CVTLC 



Insert character into buffer 



?$; 



TSTB 


SLOVER 


BEQ 


2* 


CALL 


OSTRIK 


BR 


3$ 


MOV 


#SLCBUF, R2 


MOVB 


RO, (R2) 


CALL 


INSERT 



j Get character 

i Convert lower-case to upper-case 



i Are we in overstrike mode? 
; Br if not 
; Dverstr i ke 

; Point to character buffer 

; Store char into insert buffer 

/Insert character to left of cursor 



Say there is no deleted character being held and not in terminal 
control sequence. 



OOOOOOG 
OOOOOOG 
OOOOOOG 



34; 



94: 



CLRB 

CLR 

CLRB 

F- i n i shed 

MOV 
MOV 
MOV 
MOV 



SLCBUF 

SLCSR 

SLGOLD 



<SP)+, R5 
( SP ) +, R4 
(SP)+, R3 
<SP)+, R2 



j No deleted character being held 

i We are not in a terminal control sequence 

.:Gold key <PF1) has not been pressed 
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REQCHR — Process norma) characters 

58 000772 000207 RETURN 



€ 
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tivation characters 



. SBTTL CKUAC 



— Check for user-defined activation characters 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


000774 


010246 




15 


000776 


010346 




16 








17 








18 








19 


001000 


016102 


0000000 


20 
21 
22 


001004 


001427 










23 








24 








25 


001006 


010500 




26 


001010 


004737 


011052' 


27 








28 








29 








30 


001014 


016103 


OOOOOOG 


31 


001020 


120023 




32 


001022 


00 1 402 




33 


001024 


077203 




34 


001026 


000416 




35 








36 








37 








38 








39 


001030 


01 000 D 




40 


001032 


004737 


007160" 


41 


001036 


013703 


OOOOOOG 


42 


001042 


105723 




43 


001044 


00 1 376 




44 


001046 


005303 




45 


001050 


110523 




46 


001052 


105023 




47 


001054 


004737 


007334 ' 


48 


001060 


000241 




49 


001062 


00040.) 




50 








51 








52 








53 


001064 


000261 




54 








55 








56 








57 


001066 


012603 





CKUAC is called to determine if the current input character i5 a 
user-defined activation character. If it is. it is processed here. 

Inputs; 
Rl ~ Job index number. 
R5 = Current input charejcter 

Outputs: 
C--fiag cleared ==> This is a usei — defined activation character. 
C -flag set =~> fhis is not a user-defined activation char. 



CKUAC : 



MOV 
MOV 



R2, -(BP) 
R3, -<SP) 



See if there are any user— defined activation characters 



MOV LN3PAC(R1),R2 
BEQ 8* 



; Get number of user-defined activation chars 
; Br if there are none 



There are some usei — defined activation characters. 
Translate input character to upper-case if that is uanted. 



MOV 
CALL 



R5, RO 
CVTLC 



; Get current character 

; Convert to upper-case if needed 



1*: 



MOV 


LSPACT<R1),H3 


CMPB 


RO, (R3) + 


BEQ 


2* 


SOB 


R2, 1* 


BR 


8* 



2*: 



3'$: 



Search for input character in table of activation characters. 

Get pointer to table of activation chars 

Is this an activation character? 

Br if yes 

Loop if more to check 

This is not a user-defined activation char 

This character is a user-defined activation character. 
Store character at end of line and signal line-completed. 

Get converted character to R5 

Save input line before storing activation chr 
Point to cursor character 
Search for null at end of line 
Loop till null found 
Point to the null character- 
Store activation char as last char in field 
Store null at end 
Say input line is finished 
Say this is an activation character 



Character is not a usei — defined activation character. 



MOV 


RO, R5 


CALL 


SAVLIN 


MOV 


SLCX, R3 


TSTB 


<R3) + 


BNE 


3* 


DEC 


R3 


MOVB 


R5, (R3) + 


CLRB 


<R3) + 


CALL 


LINFIN 


CLC 




BR 


9* 



S* : 



3EC 



i Say this is not a user-defined activation chr 



F i n i s h e d 
9*: MOV 



(SP)+, R3 



TSSLE ~- TSX~Plus Sinyle Line E MACRO V05. 04 Monday 21"-Dec-87 07: 4ti Page 8-1 
CKUAC — Check for user-defined activation characters 



58 001070 0i260R MOV (SP)+.n2 

I 59 001072 00020/ RETURN 



TSSLE - 
CKRDTM 



T S X -P 1 tj B S i n c( I c> Line E MAC 
- Check for ri^ad time-out c 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



001074 



001074 016100 0000000 
001100 001417 



001102 120500 
001104 ooioi:.> 
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. SBTTL CKRDTM — Che-cN for read time-out character 

CKRDTM is called to determine if the current input character is a 

read time-out character. if it isi the current input line is terminated. 

Inputs: 
Rl - Job index number. 
R5 = Current input character. 

Outputs: 
C~flag cleared =-> This is a read time-out character. 

CKRDTM: 

See if program has specified a rsad time-out 



001106 
001112 
001114 
001116 

001120 
001122 
001124 



001130 
001134 
001136 



013700 
105720 
00 1 376 
005300 
110520 
105010 
004737 



005061 
000241 
000401 



0000000 



007334 ' 



0000000 



001140 00026,1 



MOV 
BEG 



LRTCHR(Rl), RO 
8« 



; .Ts there a read time-out specified? 

i Br if not 



See if current character is time-out character 



CMPB 
BME 



R5, RO 

8* 



; Is current character the time-out char? 
i Br if not 



Read time-out has occurred. 
Terminate current input line, 



1*: 



MOV 


SLCX,RO 


TSTB 


<R0) + 


BME 


1* 


DEC 


RO 


MOVB 


R5, (R0) + 


CLRB 


(R0> 


CALL 


LINFIN 



Get current cursor character index 

Search for end of line 

Loop till null hit 

Point to null 

Store time-out character at end 

Put null at end of string 

Terminate the input line 



CLR 
CLC 
BR 



i Say tue have processed the time-out character 
i San this was the timeout character 



00114;; 



000207 



Clear the time-out character flag 

LRTCHR(Ri ) 

9* 

; This is not a read timer -c*ut character 

8-*: SEC i Signal not time-out character 

; p-iniBheci 
9$: RETURN 
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CSCHK — Check for start of control sequence 



1 

2. 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



001144 



001144 120527 0000000 

001150 001003 

001152 004737 006274' 

001156 000413 



001160 120527 0000000 

001164 001003 

001166 004737 006326' 

001172 000405 



001174 120527 OOOOOOG 

001200 001004 

001202 004737 006352' 



001206 000241 
001210 000401 



001212 000261 



001214 000207 



. SBTTL CSCHK — Ch&ck for start of control sequence 

CSCIIK 15 called to determine if the current character begins a 
terminal control sequent p. 

Inputs: 
R.t - Line index number. 
f?5 ~ Received character. 

Outputs: 
C-flag cleared ==> Start of control sequence. 
C-flag set ==> Not start of control sequence. 

CSCHK: 

See if this is the start of an escape sequence 

; Is this character escape? 

.: Br if not 

> Begin escape sequence 



CMPB 


R5, #ESC 


BNE 


1* 


CALL 


ICPESC 


BR 


8* 



1*: 



CMPB 


R5, #CSICHR 


BNE 


2* 


CALL 


ICPCSI 


BR 


8* 



?*: 



See if this character is CSIji beginning of VT200 control sequence 

CSI character? 

Br if not 

Start VT200 control sequence 

See if this character is S33, beginning of VT200 control sequence 

SS3 character?' 

Br if not 

Start VT200 control sequence 



CMPB 


R5, #SS3CHR 


BNE 


7$ 


CALL 


ICPSS3 



We began a control sequence 



8^: 



CLC 
BR 



Signal control sequence began 



9* 



We did not begin a control sequence 
7*: SEC i Signal that control sequence did not begin 

Finished 
9«: RETURN 



TSSLE — 
EPCHl - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



TSX~Pius Sinfile Line E MACRO V05. 04 Monday 21~Dec-87 07:45 Page 11 
- Accrue a terminal control sequence 



SBTTL EPCHl 



At t rut' a terminal control sequence 



001216 
001222 
001224 
001230 
001236 



013700 
110520 
010037 
012737 
000207 



0000000 

0000000 
001304' OOOOOOG 



The routines in this section implement a finite state machine 

ujhich accrues the characters of a terminal control sequence. 

While we are accruing a tontrol sequence* the cell SLCSR contains 

the address of the routine to be called to process the next character. 



EPCHl is called when we receive the first character following escape 
in a VTIOO escape sequence. 



PCHl 



MOV 

MOVE 

MOV 

MOV 

RETURN 



SLCSPT, RO 
R5, (R0> + 
RO, SLCSPT 
#EPCH2. SLCSR 



Get pointer into buffer 

Accrue the character 

Save new pointer 

Set address of routine for next character 



001244 
001250 



1 20527 
001010 



000077 



001252 
001256 
001262 
001270 



001272 
001274 
001276 



00130^ 



010037 
012737 
000404 



110520 
105020 
004737 



000207 



000117 
OOOOOOG 

001304' 



22 001240 013700 OOOOOOG 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



EP52 is called when we receive the first character following escape 

in a VT52 escape sequent e. 



EP52: 



MOV 



SLCSPT, RO 



i Get pointer into buffer 



If this character is "?" then we are receiving a two character 

control sequence. Otherwise this is a single character control sequence. 



CMPB 
BNE 



R5, #'? 
1* 



i Alternate keypad leadin character?" 

j Br if not 



OOOOOOG 



This is a two character control sequence. 

Convert "?" to "0" to make the sequence compatible with a VTIOO. 

i Store "0" as 1st char of sequence 

J Store new buffer pointer 

i Set address of routine to process more chars 



MOVE 


#'0, <R0) + 


MOV 


RO. SLCSPT 


MOV 


#EPCH2> SLCSR 


BR 


9* 



This is a sinqle character control sequence 



1$: 



001356' 



MOVB 
CLRB 
CALL 



R5, <R0) + 
<R0) + 
CSFIN 



; Store character into buffer 

iJhXB terminates the control sequence 

.; End of control sequence 



F i n i ii h e d 
9$: RETURN 



001304 013700 OOOOOOG 



001310 020027 OOOOOOG 

001314 103400 

001316 004737 011140' 



EPCH2 process characters after the 1st character of a control sequence. 
EPCH2: MOV SLCSPT, RO ; Get pointer to control sequence buffer 
Make sure we are not about to overflow the control sequence buffer 



CMP 


RO, #SLCSBX 


iU.,.0 


1* 


CALL 


RNGBEL 



i Is buffer full? 

i Br i f not 

J Ring the bell 



l-PCHl - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



TSX-PluE Sinfiiu Line E MACRO V05. 04 Honciay 21-Dec-87 07:41/ Page 11-1 
• Accrue a terminal control sequenct? 



3=:c: 005037 000000<3 
001326 000412 



001330 110520 



001332 120527 000100 

001336 10340''! 

001340 105020 

001342 004737 001356 

001346 00040P 



001350 010037 000000<5 



001354 000207 



CLR 
BR 



SLCSR 
9* 



; Say not processing a control sequence 



Store character into control sequence buffer 
1*: MOVB R5. (R0)+ ; Store character into control sequence buffer 
Determine if this is the terminating character of the control sequence 

»l5 this the final char of control seq? 

; Br if not 

i Terminate the control sequence 

; Process the control sequence 

This is not the final character of the control sequence. 
Continue accruing characters. 



CMPB 


R5, #100 


BLO 


2* 


CLRB 


<R0) + 


CALL 


CSFIN 


BR 


9* 



2$ : MOV 
Finished 
9«: RETURN 



RO, SLCSPT 



i Save new buffer pointer 



TSSLE — 
CSFIN - 

1 
2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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001356 010246 



001360 005037 0000000 



001364 012705 001456' 



001370 
001374 
001376 
001400 
001404 
001406 



001410 
001412 
001414 
001416 
001422 
001426 
001432 



001434 
001440 



012702 
122225 
001004 
105765 
001373 
000415 



005305 
105725 
00 1 376 
062705 
042705 
020527 
103756 



004737 
000404 



OOOOOOG 



177777 



000003 
000001 
002206 ' 



011140' 



001442 005205 

001444 042705 000001 

001450 004735 



001452 012602 
001454 000207 



SBTTL CSFIN 



Process terminal control sequence 



<; 



CSFIN is called when lue have finished accruing a terminal control 
s e q 1 ) e n c e . 

I ?i p i." t s ; 
Rl ~ Line index number. 
SLCSBF = Control sequence in asciz form. 



SPIN: MOV R2, -(SP) 

Say we are no longer processing a control sequence 

CLR SLCSR ; No longer accruing a control sequence 

Begin loop to search for the control sequence 

MOV #CSTBL, R5 ; Get pointer to control sequence table 
i Compare accrued control sequence with sequence stored in table 



1*: 
2$: 



3*: 
5*: 



MOV 


#SLCSBF* R2 


CMPB 


(R2)+, <R5)H 


BNE 


3* 


TSTB 


-1<R5) 


BNE 


2* 


BR 


4* 


gs do 


not match -- 


DEC 


R5 


TSTB 


(R5) + 


BNE 


5* 


ADD 


#3, R5 


BIC 


#1, R5 


CMP 


R5, #CSEND 


BLO 


1* 



J Point to accrued control sequence 

; Compare the strings 

; Br if mi smstch 

iWas that the last char of both strings? 

; Br if not 

; We have a match 



.: Point to last char compared in table 
; Search for null at end of asciz string 

j Bound up and skip over following word 

i Get to word boundary 

j Checked all entries in tabled' 

i Loop i f not 



We could not find the sequence in our tabli 



CALL 
BR 



RNGBEL 
9* 



>Rinq bell 



We found control sequence in our table. 
Call processing routine. 



4*: 



9$: 



INC 


R5 


BIC 


#1.R5 


CALL 


@<R5)+ 


F i n i & h e d 




MOV 


(SP)+, R2 


RETURN 





i Bound up to next word following string 
; Get to word boundary 
iCall processing routine 



TSSLE -- 


- TSX~P 


CSFIW - 
.1 


-- Proc 


2 
3 
4 




5 




6 




7 




8 




9 




10 


001456 


11 


001456 


12 


001464 


13 


001472 


14 


001500 


15 


001506 


16 


001514 


17 


001522 


IS 


001530 


19 


001536 


20 


001544 


21 


001552 


22 


001560 


23 


001566 


24 


001574 


25 


001602 


26 


001610 


27 


001616 


28 


001624 


29 


001632 


30 


001640 


31 


001646 


32 


001654 


33 


001662 


34 


001670 


35 


001676 


36 


001704 


37 


001712 


38 


001720 


39 


001726 


40 


001736 


41 


001746 


42 


001756 


43 


001766 


44 


001776 


45 


002006 


46 


002016 


47 


002026 


48 


002036 


49 


002046 


50 


002056 


51 


002066 


52 


002076 


53 


002106 


54 


002116 


55 


002124 


56 


002132 


57 


002140 
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> Table of terminal control sequences 


. MACRO 


ESCSEQ STRING* RTN 


. ASCIZ 


/STRING/ 


. EVEN 




. WORD 


RTN 


. ENDM 


ESCSEQ 


> 

CSTBL: 




ESCSEQ 


<CA>, TCUP 


ESCSEQ 


<[:B>, TCDOWN 


ESCSEQ 


<e:c>, tcrite 


ESCSEQ 


<CD>, TCLEFT 


ESCSEQ 


<0M>, TCENTR 


ESCSEQ 


<0P>, TCPFl 


ESCSEQ 


<0Q>, TCPF2 


ESCSEQ 


<0R>, TCPF3 


ESCSEQ 


<0S>, TCPF4 


ESCSEQ 


<01>,KEYC0M 


ESCSEQ 


<0m>,KEYMlN 


ESCSEQ 


<0n>, KEYDOT 


ESCSEQ 


<0p>, KEYD 


ESCSEQ 


<Dq>, KEY J 


ESCSEQ 


<0r>, KEYP 


ESCSEQ 


<0s>, KEY3 


ESCSEQ 


<0t>. KEY4 


ESCSEQ 


<0u>, KEY5 


ESCSEQ 


<0v>, KEY6 


ESCSEQ 


<0iu>, KEYy 


ESCSEQ 


<0x>, KEYS 


ESCSEQ 


<0y>, KEY9 


ESCSEQ 


<C1~>, El 


ESCSEQ 


<i:2r>, E2 


ESCSEQ 


<C3~>, E3 


ESCSEQ 


<C4'^>, E4 


ESCSEQ 


CCS-^O', E5 


ESCSEQ 


<E6~>, E6 


ESCSEQ 


<C17'^>, F6 - 


ESCSEQ 


<C18r>, F7 


ESCSEQ 


<C19~>, FS 


ESCSEQ 


<C20'^>, F9 


ESCSEQ 


<C21'^>. FIO 


ESCSEQ 


<C23'^>, Fli 


ESCSEQ 


<C24'">, F12 


ESCSEQ 


<C25'^>, F13 


ESCSEQ 


<C26'">, F14 


ESCSEQ 


CC28*">. F15 


ESCSEQ 


<C29'^'>, F16 


ESCSEQ 


<i:3ir>, F17 


ESCSEQ 


<C32r>, Fie 


ESCSEQ 


<C33'^>. F19 


ESCSEQ 


<C34~>, F20 


ESCSEQ 


<0A>, TCUP 


ESCSEQ 


<0B>, TCDOWN 


ESCSEQ 


<0C>, TCRITE 


ESCSEQ 


<0D>, TCLEFT 



and associated processing routines 



Up arrow 

Down arrow 

Right arrow 

Left arrow 

Enter < treat 

PFl 

PF2 

PF3 

PF4 

Comma 

Minus sign 

Period 



1 

2 

3 

4 

5 

6 

7 

8 

9 

El 

E2 

E3 

E4 

E5 

E6 

r-6 
P7 

F8 

F9 

FIO 

Fll 

F12 

F13 

F14 

Fl 5 

F16 

F17 

FIS 

F19 

F20 

Up arrow 

Down arrow 

Right arrow 

Left arrow 



like carriage return) 



Find 

Insert here 
Remove 
Select 
Prev screen 
screen 



— Next 



ESC 

BS 

Line 

Help 
Do 



feed 



(Cursor 
(Cursor 
(Cursor 
(Cursor 



key 
key 
key 
key 



mode set) 
mode set) 
mode set) 
mode set) 



TSBLE — 


- TSX-P 


CSFIN •■ 


— • Proc 


58 


002146 


59 


002152 


60 


002156 


61 


002162 


62 


002166 


63 


002172 


64 


002176 


65 


002202 


66 


002206 
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E3CSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 



<a:> 

<D:i 
<p:; 
<q:5 

<s:> 



TCUP 

TCDOWW 

TCRITE 

TCLEFT 

TCPFl 

TCPF2 

TCPF3 

TCPF4 



Up arrow 
Down arrow 

Right arr ouj 

Left arrow 

PFl 

PF2 

PF3 

PF4 



(VT52) 

<VT52) 

(VT52) 

<VT52> 

<VT52 numeric) 
numeric ) 
numeric ) 
numeric ) 



(VT52 
<VT52 
<VT52 



CSEND: 



TSSLE - 
TCUP 

1 
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— Up -ar TO u! p r d i. p b s i n g 



3 








4 








S 








6 
7 








8 


002206 


010546 




9 








10 








11 








12 


002210 






13 


002216 


103450 




14 








15 








16 








17 


002220 


105737 


OOOOOOG 


18 


002224 


001426 




19 


002226 


105037 


0000000 


20 


002232 


005737 


OOOOOOG 


21 


002236 


001421 




22 


002240 


013705 


OOOOOOG 


23 


002244 


020537 


OOOOOOG 


24 


002250 


001003 




25 


002252 


013705 


OOOOOOG 


26 


002256 


000401? 




27 


002260 


004737 


007602 ' 


28 


002264 


010537 


OOOOOOG 


29 


002270 


010537 


OOOOOOG 


30 


002274 


004737 


007672 •* 


31 


002300 


000417 




32 








33 








34 








35 


002302 


013705 


OOOOOOG 


36 








37 








38 








39 


002306 


105737 


OOOOOOG 


40 


002312 


001404 




41 


002314 


105037 


OOOOOOG 


42 


002320 


004737 


007514' 


43 








44 








45 








46 


002324 


004737 


007672 ' 


47 








48 








49 








50 


002330 


004737 


007514' 


51 


002334 


010537 


OOOOOOG 


52 








53 








54 








55 


002340 


012601^ 




56 


002342 


000207 





. SDTTL TCUP — Up •arroiiij pTDce5Sin<5 
FroresG the up-arrow Immj. 

I Tip u t B ; 

Rl = Job index number. 

TCUP: MOV R5, -(SP) 

See if this is a u&er-dP fined key 



KEYCHK KC$UP 
BCS 9* 



i See if this is a user-defined key 
; Br if user-defined feey 



If gold key was pressed recall through cycle 



4'*: 
5*: 



TSTB 


SLGOLD 


BEQ 


3* 


CLRB 


SLGOLD 


TST 


SLCYCl 


BEG 


3* 


MOV 


SLLPTR, R5 


CMP 


R5, SLCYCa 


BNE 


4* 


MOV 


SLCYCl, R5 


BR 


5* 


CALL 


SLMVDN 


MOV 


R5, SLLPTR 


MOV 


R5, SLSPTR 


CALL 


RSTLIN 


BR 


9$ 



Was gold key pressed? 

Br if not 

Clear gold key flag 

Is a cycle defined?" 

Br if not 

Point to last recalled line 

Reached end of the cycle? 

Br if not 

Loop back to start of cycle 

; Move to next saved line 
j Remember last recalled line 
; Say this is last saved line 
;Re store the line 



Get pointer to saved line 
3«: MOV SLLPTR, R 5 



j Point to saved~line buffer 



If last recall was with down arrow, skip over a command 



; Last operation down arrow? 
; Br if not 

j Reset direction indicator 
i Move up 1 1 ine 



jRestore the line 



TSTB 


SLDOWN 


BEQ 


It 


CLRB 


SLDOWN 


CALL 


SLMVUP 



Restore the saved line 
1«: CALL RSTLIN 



Update up-arrow pointer to point to next saved line 



; Move up to next line 

.: Save pointer for next up-arrow 



9*: 



CALL 


SLMVUP 


MOV 


R5, SLLPTR 


F" i n i Si h e d 




MOV 


<SP)+, R5 


RETURN 





TSSLE — TSX-Plus Sin.qlf- Line E 
TCDOWN - — Dou)n-arrouj processiijig 



1 



3 
4 

5 002344 010446 

6 002346 010546 
7 

8 
9 
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. SBTTL TCDOWN — D«wn-arrou> processing 
Process the down-arrow kt'u • — Move forward to next saved command. 



c 

€ 



TCDOWN: MOV 
MOV 



R4, -(SP) 
R5, -<SP) 



See if this is a U5er~dt?f ined key 



21 

"DO 



10 002350 

11 002356 
12 

13 
14 

15 002360 

16 002364 
17 

IS 

19 

20 002366 
002372 
002376 

23 002402 

24 002404 

25 002410 

26 002414 

27 002422 

28 002426 

29 002432 

31 
32 

33 002434 

34 002440 

35 002444 

36 002446 

37 002454 
38 

39 
40 

41 002460 

42 002464 

43 002466 

44 002472 
45 

46 

47 

40 002474 

49 

50 

51 

52 

53 

54 

55 

56 002504 

57 



103454 



105737 
00 1 423 



105037 
013705 
105737 
001002 
004737 
010537 
013737 
010537 
010537 
000426 



01 3700 
105737 
OOIOOS 

1 1 2737 
004737 



020537 
OOIOOU 
004737 
000406 



KEYCHK KC*DWN 
BCS 9* 

See if Gold key uja& prest-ed 



OOOOOOG 



TSTB 

BEQ 



SLGOLD 
3* 



; See if this is a user-defined key 
ihr if usei — defined key 



iWas gold key pressed? 
i Br if not 



Go 1 d-d own -arrow 



Set recall cycle 



OOOOOOG 
OOOOOOG 
OOOOOOG 

007602 ' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4«: 



OOOOOOG 



CLRB 


SLGOLD 


MOV 


SLLPTR.R5 


TSTB 


SLDOWN 


BWE 


4* 


CALL 


SLMVDN 


MOV 


R5, SLCYCl 


MOV 


SLSPTR, SLCYC2 


MOV 


R5, SLSP TR 


MOV 


R5, SLLPTR 


BR 


9* 



OOOOOOG 
OOOOOOG 

000001 
007602 ' 



OOOOOOG 
011140' 



3*: 



OOOOOOG 



1*: 



Reset Gold flag 

Point to last recalled command 

Was last direction down? 

Br if yes 

Move down a line 

Set pointer to 1st command in cycle 

Save pointer to last command in cycle 

Say this is the last command entered 

Remember last recalled line 



If last recalled command was done with up-arrow skip over that command 

; Point to last saved command 

iWas last direction down? 

i Br if yes 

J We are going down now 

i Move down a command line 

See if there is a command to recall 

i Any commands left to recall? 
J Br if yes 
jRinq the bell 



MOV 


SLLPTR, R5 


TSTB 


SLDOWN 


BNE 


1* 


MOVB 


#1, SLDOWN 


CALL 


SLMVDN 



CMP 


R5, SLSPTR 


BNE 


2* 


CALL 


RNGBEL 


BR 


9* 



004737 007602 ' 



002500 010537 OOOOOOG 



004737 007672 ' 



; Advance down to the next saved command 

2$: CALL SLMVDN > Move down to next saved command 

i 

f Store HEiij current line pointer 

MOV R5, SLLPTR ; Points to last line recalled 
; Restore the saved line 

CALL RSTLIN i Restore line pointed to by R5 



TSSLE — TSX-Plus Sin.qlr Line E MACRO V05. 04 Monday 21-Dec-87 07:45 Page 15-1 
TCDOWN — Douin-arrou- pr(,.c ess ing 



58 
59 

60 002510 01260;:^ 

61 002512 012604 

62 002514 000207 



'?<$: 



F i n 


i B h ♦? c! 






MOV 


(SP)+,R5 




MOV 


(SP)+, R4 




RETURN 





010446 



TSBLE — TSX-Plus Sinpie Line E 
TCLEFT — Lef t-aTroui processinci 



1 

2 

3 

4 

5 

6 

7 

S 002516 

9 
10 
11 

12 002520 

13 002526 
14 

15 

16 

17 002530 

le 002534 

19 002536 

20 002542 

21 002546 

22 002552 

24 
25 
26 

27 002554 

28 002560 
002564 



105737 
001407 
012704 
004737 
105037 
000410 



0000000 

0000000 
010630' 
0000000 



013704 ooooooe 



29 
30 
31 
32 

33 002566 

34 002570 
35 

36 
37 

38 002574 

39 002576 



020427 
101403 



005304 
004737 



012604 
000207 



OOOOOOG 



010630' 
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. SBTTL TCLEFT -— left-arrow processing 

F^rocess left-arrow key. 

I n f J 11 1- B : 
Rl -- Job index number. 

TCLEFT: MOV R4, -<SP) 

See if this is a user-defined key 



KEYCHK KC*LFT 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



If Gold key was pressed^ move to left end of buffer 



i Was Gold key pressed? 

; Br if not 

iPosition to left end of buffer 

J Position cursor 

.: Clear gold-key flag 



Move cursor left one character. 



TSTB 


SLGOLD 


BEQ 


2* 


MOV 


#SLEBUF, R4 


CALL 


CHRP 03 


CLRB 


SLGOLD 


BR 


9* 



Gold key was not pressed 

Error if already at left margin. 



2*: 



MOV 


SLCX, R4 


CMP 


R4, #SLEBUF 


BLOS 


9* 



Move cursor left 1 character 



1$: 



9*: 



DEC 


R4 


CALL 


CHRPOS 


Finished 




MOV 


(SP)+, R4 


RETURN 





; Get cursor position index 
i Are we at left margin now? 
> Br if yes — Nothing to do 



J Move character pointer back 1 character 
i Position cursor correctly 



TSSLE — TSX-Plus Sinple Line E MACRO 
TCRITE — Right-arrow processing 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 



002600 010446 



12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



00 
00 



2602 
^610 



00 
00 
00 
00 
00 
00 
00 
00 
00 



2612 
2616 
2620 
=>624 
26u.6 
^630 
2632 
^636 
D642 



00 
00 
00 



=^644 
2650 
=>652 



00 
00 



^654 
^656 



00 
00 



=^662 
^664 



105737 
001412 
013704 
105724 
00 1 376 
005304 
004737 
105037 
000407 



013704 
10571^'! 
001403 



005204 
004737 



012604 
000207 



OOOOOOG 



0000000 



010630' 
OOOOOOG 



OOOOOOC 



010630' 
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. SBTTL TCRITE — Hi tjht-arrouj processing 

Process the right arrou? ktni. 

I n p u t s- : 
Ri ~~ Job index. 

TCRITE: MOV R4, -<SP) 

See if this is a user-defined key 



KEYCHK KC«RIT 
BCS 9* 



J See if this is a user-defined key 
i Br if user-defined key 



If Gold key was pressed, move to right end of line. 

i Was gold key pressed? 
J Br if not 

; Get current cursor pointer 
3*: TSTB (R4)+ ; Search for right end of line 

i Loop till null hit 
; Point to null at end 
; Position cursor on screen 
; Clear gold-key flag 



Gold key was not pressed. Move cursor right 1 character. 
Error if already at right end of line. 



TSTB 


SLGOLD 


BEQ 


1* 


MOV 


SLCX, R4 


TSTB 


(R4) + 


BNE 


3* 


DEC 


R4 


CALL 


CHRPOS 


CLRB 


SLGOLU 


BR 


9* 



1$: 



MOV 

TSTB 

BEQ 



SLCX.. R4 

(R4) 

9« 



i Get current cursor character pointer 
>Are uje at right end of line nou>? 
; Br if yes 



Move cursor right 1 charac te-f. 



c'*: 



9*: 



INC 
CALL 


R4 
CHRPOS 


Pini shed 




MOV 
RETURN 


(SP)+, R4 



j Advance cursor 1 character 
i Move cursor on screen 



€ 

c 



TSSLE — 
TCPFl - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2f) 

26 

27 

28 



002666 



002666 

002674 103410 



002676 105737 OOOOOOG 

002702 00 1 403 

002704 105037 OOOOOOG 

002710 00040P 



002712 10S237 0000000 



002716 000207 
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- PFl processinq 

. SBTTL TCPFl — PI- 1 processing 

ProcecE the PFl (Gold) key. 

Inputs: 
f<ll = vJob index number. 

"fCPFl; 

See if this is a usei — defined key 



KEYCHK KC*PF1 
■a 9$ 



BCS 



> See if this is a user-defined key 
; Br if user-defined key 



See if PFl has been pressed previously 



TSTB 
BEQ 
CLRB 
BR 



SLGOLD 
1* 

SLGOLD 
9* 



j Has PFl already been pressed? 

i Br if not 

; Clear gold-key flag 



; Set flag saying Gold key pressed. 

1$: INCB SLGOLD ; Remember "Gold" key was pressed 

> F i T'l i h h e d 
9*: RETURN 
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TCPF2 — PF2 processir.M 



3 
4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



002720 



002720 

002726 103404 



002730 004737 011140' 
002734 105037 0000000 



002740 000207 



it;? processing 



. SBTTL TCPF2 

ProresB the PF2 key. 

1 n p u t B 
Ri -■ v)ob index number. 

TCPF2: 

See if this is a user-defined key 



KEYCHK KC*PF2 
BCG 9* 



; Bee if this is a user-defined key 
J Br if user-defined key 



PF2 is not defined if it is not a user-defined key. 



iHelp support not implemented 
i Clear gold flag 



CALL 


RNGBEL 


CLRB 


SLGOLD 


; F i n i b h e d 




9*: RETURN 





TSSLE — 
TC.PF3 - 

1 

/-J 

3 
4 
5 

7 

S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
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- PF3 proc essihit! 



002742 



002742 

002750 103407 



002752 004737 011566' 
002756 10340D 



002760 004737 011140' 
002764 105037 0000000 
002770 000207 



Pf-3 processing 



. SBTTL TCPF3 

Proc eBs PF3 kc»y. 

I n p u t- s : 
Rl -■ Job index number. 

TCPF3: 

See if this is a user-defined key 



KEYCHK KC$PF3 
BCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



If this is a VT52, treat PF3 like PF4. 



CALL 



CHK52 
TCPF4 



9*: 



This is not a VT52 

CALL R NOB EL 
CLRB SLGOLD 
RETURN 



; Is this a VT52 terminal? 
i Br if yes 



; PF3 not valid for VTIOO 
; Clear gold-key flag 
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TCI-'F4 ~- PF4 process;! nt! 



3 








4 








5 








6 








7 








8 


002772 


010246 




9 


002774 


010346 




10 


002776 


010446 




11 








12 








13 








14 


003000 






15 


003006 


103430 




16 








17 








IS 








19 


003010 


013704 


0000000 


20 


003014 


105737 


0000000 


21 


003020 


OOlOKi 




22 








23 








24 








25 








26 


003022 


105714 




27 


003024 


001421 




28 








29 








30 








31 


003026 


010402 




32 


003030 


012703 


0000000 


33 


003034 


1 1 2223 




34 


003036 


00 1 376 




35 








36 








37 








38 


003040 


10 5014 




39 








40 








41 








42 


003042 


004737 


010324' 


43 


003046 


000410 




44 








45 








46 








47 








48 


003050 


012702 


0000000 


49 


003054 


004737 


010126' 


50 


003060 


004737 


010630' 


51 


00306''-i 


105037 


OOOOOOG 


52 








53 








54 








55 


003070 


012604 




56 


003072 


012603 




57 


003074 


01260n 





. SBTTL TCPF4 — • PI- 4 processing 

ProresE PF4 key. 

I n p It t & : 
F'Jl " Job index number. 



TCPF4: MOV 
MOV 
MOV 



R2, -<SP.) 
R3, -<SP) 
R4, -(SP) 



See if this is a usei — defined key 



KEYCHK KCfPF4 
DCS 9* 

See if Gold key loas pressed 



MOV 

TSTB 

BNE 



SLCX, R4 

SLGOLD 

1* 



j See if this is a user-defined key 
i Br if user-defined key 



i Set current cursor position pointer 
i Was Gold key pressed? 
.: B T* if yes 



Gold key was not pressed. 

Delpte from cursor to end of line. 



TSTB 
BEQ 



<R4.) 
9* 



;Is cursor at right end of line now? 
; Br if yes 



Move deleted characters to holding buffer. 



2*; 

3*: 



MOV 


R4, R2 


MOV 


#SLDBUF, R3 


MOVB 


(R2)+, (R3) + 


BWE 


3* 



; Get cursor pointer 

; Point to delete buffer 

j Move deleted chars to holding buffer 

i Loop till null moved 



Truncate line at cursor position 



CLRB <R4) 
Display truncated line 



CALL 
BR 



PAINT 
9* 



; Truncate 1 ine 



Redisplay line from cursor to right end 



1*: 



Gold <PF4) key was pressed. Replace test from holding buffer. 
Insert text to right of cursor position. 

; Get pointer to holding buffer 

; Insert te.x t 

i Position cursor 

.; Clear gold-key flag 



9$: 



MOV 


#SLDBUF, R2 


CALL 


INSERT 


CALL 


CHRP OS 


CLRB 


SLGOLD 


F i T 1 i B h e d 




MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


< SP ) +, R2 
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TCPF4 --■■ PF4 pro t:ess:i till 

58 003076 000207 RETURN 



TSSLE - 
■fCENTR 



3 
4 
5 
6 
7 
B 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



003100 

003106 103406 



003110 105037 0000000 

003114 105237 0000000 

003120 0047^37 005622' 

003124 000207 



003126 



003126 004737 Oil 140 ■• 



003132 105037 OOOOOOG 



003136 000207 
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■-- Enter key processing 

. SBTTL TCENTk — f-nit-r key processing 

Treat Enter key like carriage-return line-feed. 

003100 TCENTR: 

See if this is a user~d{?f ined key 



KEYCHK KC$ENT 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key 



9*: 



CLRB SLGOLD 

INCB SLCR 

CALL ICPCR 
RETURN 



.: Reset gold key 

; Say we have received carriage-return 

; Process carr iaqe-returnj line— feed 



.SBTTL TCINVL — Invalid function key 
An invalid function key luas pressed. 
TCINVi : 



Ring terminal bell 
CALL RNGBEL 

Clear gold-key flag 
CLRB SLGOLD 

Finished 

RETURN 



iRinq the bell 



; Clear gold-key flag 



TSSLE — TSX~P] 


u <::■ Sin (j 1 e Line E 


KEYO ~ Key ' 

i 
2 
3 


0" proi.t 


<;. sing 






4 






5 003140 


010246 




6 003142 


010346 




7 003144 


010446 




S 






9 






10 






11 003146 






12 003154 


103426 




13 






14 






15 






16 003156 


105737 


OOOOOOG 


17 003162 


OOIOOS 




IS 






19 






20 






21 






22 003164 


012704 


000000<3 


23 003170 


004737 


010630' 


24 003174 


000416 




25 






26 






27 






28 






29 003176 


105037 


ooooooe 


30 003202 


013704 


0000000 


31 003206 


105714 




32 003210 


00 1410 




33 






34 






35 






36 003212 


010402 




37 003214 


012703 


OOOOOOG 


38 003220 


112223 




39 003222 


001376 




40 






41 






42 






43 003224 


105014 




44 






45 






46 






47 003226 


004737 


010324' 


48 






49 






50 






51 003232 


012604 




52 003234 


012601! 




53 003236 


012602 




54 003240 


000207 
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. 3BTTL KEYO Kfy "0" processing 

Key — Bline / Open liiic? 



KEYO; 



MOV 
MOV 
MOV 



R2, - < SP ) 
R3, -<SP) 
R4. -(SP) 



See if this is a user-def ined key 



KEYCHK KC*KPO 
I3CS 9* 



i See if this is a u&er-defined key 
i Br if user-defined key 



See if the gold key wa& pressed 



TSTB 
BNE 



SLGOLD 
1* 



J Was the gold key pressed? 
i Br if yes 



Oold key was not pres&(?d. 
Move cursor to front of line. 



MOV 


#SLEBUF, R4 


CALL 


CHRP03 


BR 


9* 



j Set cursor to front of line 
.: Position the cursor 



Gold key was pressed. 

Delete from cursor to crtid of line. 



1*: 



CLRB 


SLGOLD 


MOV 


SLCX, R4 


TSTB 


(R4) 


BEO 


9* 



jClear gold-key flag 

; Get cursor position index 

j Are we already at the end of the line? 

; Br if yes 



Move deleted characters to holding buffer 



3^: 



MOV 


R4. R2 


MOV 


#sldbi;f> R3 


MOVB 


(R2)+, (R3) + 


BNE 


3* 



Truncate the line 

CLRB (R4) 
Display the truncated lint- 

CALL PAINT 



Get cursor pointer 
F'oint to holding buffer 
Move chars to holding buffer 
Loop till null moved 



Truncate the line at the cursor position 



iRedisplay the line 



9*: 



F i n 3 


& ii e d 






MOV 


<SP)+, R4 




MOV 


<SP)+.. R3 




MOV 


<SP.>+. R2 




RETURN 





€ 
€ 



TSSLE — TSX-Plus Sin.qle Line E 
KEY 1 --- Key " 1 " pro (.: f • r- s i n g 



3 








4 








5 


003242 


010446 




6 








7 








8 








9 


003244 






10 


003252 


103526 




11 








12 








13 








14 


003254 


105737 


0000000 


15 


003260 


001053 




16 








17 








18 








19 








20 


003262 


013704 


0000000 


21 


003266 


105737 


0000000 


22 


003272 


00102.1 




23 








24 








25 








26 








27 


003274 


I 1 2400 




2e 


003276 


001514 




29 


003300 


004737 


010776' 


30 


003304 


103405 




31 








32 








33 








34 


003306 


1 1 2400 




35 


003310 


001410 




36 


003312 


004737 


010776' 


37 


003316 


103373 




38 








39 








40 








41 


003320 


1 1 2400 




42 


003322 


001403 




43 


003324 


004737 


010776' 


44 


003330 


103773 




45 


003332 


005304 




46 


003334 


000422 




47 








48 








49 








50 


003336 


020427 


0000000 


51 


003342 


10147;.' 




52 








53 








54 








55 


003344 


020427 


OOOOOOG 


56 


003350 


101414 




57 


003352 


114400 
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. BBTTL KEY 1 ~- Kt- y " 1 " pr o c e b s i n g 
Key 1 — Word / Chanpt? cbbp 
KEYl: MOV R4, -<BP) 

See if this is a user -defined key 



KEYCHK KC«KP1 
BCS 20* 



i See if this is a user-defined key 
J Br if user-defined key 



See if the gold key was. pressed 



TSTB 
BWE 



SLGOLD 
1* 



J Was the gold key pressed? 
j B r if yes 



Oold key was not pressed. 

Move forward/backward orte word. 



MOV 


SLCX, R4 


TSTB 


SLBACK 


BNE 


16* 



j Get current cursor index 

i Moving forward or backward? 

i Br if bac kward 



Move forward one word. 

See if cursor is pointinci to a delimiter now. 



MOVB 


<R4)+, RO 


BEO 


20* 


CALL 


CHKDLM 


BCS 


4* 



Get char under cursor 
Br if at end of line now 
Is current char a delimiter? 
Br if yes 



Skip characters in word under cursor 



5*: 



MOVB 


(R4)+, RO 


BEG 


6* 


CALL 


CHKDLM 


BCG 


5* 



Get next char from word 
Br if hit end of line 
Is this char a delimiter?' 
Br if not 



Skip delimiters that follow the word 



4*: 



6*: 



MOVB 


(R4)+, RO 


BEQ 


6* 


CALL 


CHKDLM 


BCS 


4* 


DEC 


R4 


BR 


10* 



iGet next char 

i Br if hit end of line 

ils this a delimiter? 

i Loop to skip all delimiters following word 

; Point to 1st char of new word 



Move backward one word 



16*; 



CMP R4, #SLEBUF 
BLOS 20* 



J Are we already at left end of line? 

.; Br if yes 



Skip over delimiters to left of cursor. 



7*: 



CMP R4,. #SLEBl)F 
BLOS 10* 
MOVB -<R4).. RO 



> Are we at left end of line now? 

; B r if yes 

; Get next char to left 



TSSLE — 


- TSX-Pl 


u !;. S 1 n ji 1 


f ? Line h 


KFYi 


— Key •■ 


1" procf: 


B s i 11 g 


58 


003354 


004737 


010776' 


59 


003360 


103771 




60 








61 








62 








63 


003362 


020427 


0000000 


64 


003366 


10140;} 




65 


003370 


1 1 4400 




66 


003372 


004737 


010776' 


67 


003376 


103371 




68 








69 








70 








71 


003400 


005204 




72 








73 








74 








75 


003402 


004737 


010630' 


76 


003406 


000450 




77 








78 








79 








80 


003410 


105037 


OOOOOOG 


81 


003414 


013704 


0000000 


82 


003420 


1 1 1 400 




S3 


003422 


001440 




84 


003424 


020027 


000141 


85 


003430 


103406 




86 


003432 


020027 


000172 


87 


003436 


101016 




88 


003440 


162700 


000040 


89 


003444 


000410 




90 


003446 


020027 


000101 


91 


003452 


103410 




92 


003454 


020027 


000132 


93 


003460 


101005 




94 


003462 


062700 


000040 


95 


003466 


110014 




96 


003470 


004737 


010324' 


97 








98 








99 








100 


003474 


105737 


OOOOOOG 


101 


003500 


00 1 002 




102 


003502 


005204 




103 


003504 


000404 




104 


003506 


020427 


OOOOOOG 


105 


003512 


101401 




106 


003514 


005304 




107 


003516 


004737 


010630' 


108 


003522 


000402 




109 








110 








111 








112 


003524 


004737 


011140' 


113 








114 
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CALL 



CHKDLM 
7* 



il& this a delimiter? 

i Loop to skip over delimiters 



Skip over characters in ths word 

8$: CMP R4, ttSLEBUF ; Are we at left end of line yet' 

i Br if yes 

; Get next char to left 
; Is this a delimiter? 
i Loop if not 

Point to 1st char of the word 

INC R4 j Point to 1st char of the word 

Position cursor at start of word 



CMP 


R4, ttSLEBUF 


BLOS 


10* 


MOVE 


-<R4),R0 


CALL 


CHKDLM 


BCC 


8* 



10*: CALL 
BR 

Gold kei! 1 



1$: 



CHRPOS 
20$ 



; Position cursor at Ist char of word 



11*: 



14*: 



CLRB 


SLGOLD 


MOV 


SLCX, R4 


MOVB 


(R4),R0 


BEQ 


19* 


CMP 


RO, #141 


BLO 


11* 


CMP 


RO, #172 


Bi-n; 


15* 


SUB 


#40, RO 


BR 


14* 


CMP 


RO, #'A 


BLO 


15* 


CMP 


R0,#'2 


BHI 


15* 


ADD 


#40, RO 


MOVB 


RO, (R4) 


CALL 


PAINT 



Change case of character under the cursor 



Clear the gold-key flag 
Get current cursor index 
Get char under the cursor 
Br if at right end of line 
Is this a lower-case letter? 
Br if not 

; Br if not 

; Convert lower-case to upper-case 

; Is this a upper-case letter? 
; Br if not 

Br if not 

Convert upper-case to lower-case 
Store converted character 
Redisplay the line 



Advance cursor to next character 



15*: 

12*: 

13*; 

Error -- ring bell 
19*: CALL RNGBEL 
} Fin i s h e d 



TSTB 


SLBACK 


BNE 


12* 


INC 


R4 


BR 


13* 


CMP 


R4, #SLEBUF 


BLOS 


13* 


DEC 


R4 


CALL 


CHRPOS 


BR 


20* 



J Moving forward or backward? 

; Br if bac kward 

; Advance cursor pointer 

j Are we at left end of line now? 

i Br if yes 

j Backup the cursor 

; Position cursor to next char 



; Rinq the bell 



I 
f 
f 

c 
I 
i 
f 

< 
i 

€ 

4 
4 
4 
< 
4 
C 
i 
i 

i 



TSSLE — T3X~Flus Siruilt? Line E MACRO V05. 04 Monday 21-Dec-87 07:45 Page 24-2 
KFYl •-- Key "1" proct-.sing 

115 ; 

116 003530 012604 20$: MOV (SP)+, R4 

117 003532 000207 RETURiM 



TSSLE — TSX-PluB Bintiie Line E 
KEY2 -- Key "2" procpiising 



3 








4 








5 


003534 


010446 




6 








7 








S 








9 


003536 






10 


003544 


103427 




11 








12 








13 








14 


003546 


105737 


0000000 


15 


003552 


00 1 020 




16 








17 








IS 








19 








20 


003554 


105737 


0000000 


21 


003560 


OOIOIO 




22 








23 








24 








25 


003562 


013704 


OOOOOOG 


26 


003566 


105724 




27 


003570 


001376 




28 


003572 


005304 




29 


003574 


004737 


010630' 


30 


003600 


000411 




31 








32 








33 








34 


003602 


012704 


0000000 


35 


003606 


004737 


010630' 


36 


003612 


000404 




37 








38 








39 








40 


003614 


105037 


OOOOOOG 


41 


003620 


004737 


002772 •" 


42 








43 








44 








45 


003624 


012604 




46 


003626 


000207 
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SBTTL KEV2 — Ki:y "2" processing 
Ket! "2" — EOL / Del EOl 
KEY2: MOV R4, -<SP) 

See if this is a user-defined key 



i 
f 



KEYCHK KC*KP2 
BCS 20* 



i See if this is a user-defined key 
i Br if user-defined key 



See if gold key was prGsr-fd 



TSTB 
BNE 



SLGDLD 
1* 



.: Was the gold key pressed? 

; Br if yes 



Gold key was not pres&ed. 
Check which direction to move. 



TSIB 
BNE 



SLBACK 
2* 



Move to right end of lint- 



3$: 



MOV 


SLCX.. R4 


TSTB 


(R4) + 


BNE 


3* 


DEC 


R4 


CALL 


CHRPOS 


BR 


20* 



; Move to left or right end of line? 
; Br if moving to left end 



i Get current cursor pointer 

; Search for null at the end of the line 

; Point to the nul 1 

.: Position cursor to end of line 



Move to left end of linf» 



2*; 



MOV 

CALL 

BR 



#SLEBUF, R4 

CHRPOS 

20* 



iPoint to left end of line 
^Position cursor there 



Gold ken 2 — Delete to c-nd of line 



1*: 



20$: 



CLRB 


SLGOLD 


CALL 


TCPF4 


F i n j s h e d 




: MOV 


(SP)+. R4 


RETURN 





; Clear gold-key flag 

i Process exactly like PF4 key 



TSBLE •— 


- T5.X~P1 


u s Sin 9 1 ( 


^ Line E 


KEY3 

1 
2 
3 


••" Key " 


3 " prat f ' 


- r. i n _q 








4 








5 








6 








7 








8 


003630 


010446 




9 








iO 








11 








12 


003632 






13 


003640 


10343n 




14 








15 








16 








17 


003642 


105737 


OOOOOOG 


IS 


003646 


00 1 023 




19 








20 








21 








22 


003650 


004737 


011566' 


23 


003654 


103420 




24 








25 








26 








27 


003656 


013704 


OOOOOOG 


28 


003662 


105737 


0000000 


29 


003666 


001004 




30 








31 








32 








33 


003670 


105714 




34 


003672 


00141b 




35 


003674 


00 520''l 




36 


003676 


000404 




37 








38 








39 








40 


003700 


020427 


OOOOOOG 


41 


003704 


101410 




42 


003706 


005304 




43 


003710 


004737 


010630' 


44 


0037 1 4 


000404 




45 








46 








47 








48 


003716 


004737 


011140' 


49 


003722 


105037 


0000000 


50 








51 








52 








53 


003726 


012604 




54 


003730 


000207 
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, BBTTL REY3 --• Htu "3" processing 

Key "3" — VTIOO: Advancp by character, VT52: invalid 

I n p I) 1 5 : 
Rl "■ Job index number. 

KEY3: MOV R4, -(SP) 

See if this is a user-dt-f ined key 



KEYCHK KC$KF3 



DCS 



9* 



i See i-P this is a user-defined key 
; Br if usei — defined key 



Don't allow gold key with key 3. 



TSTB 
BNE 



SL,GOL.D 



K K y 3 is invalid f o r VT fvP 



CALL 
BCB 



CHK52 
8* 



Advance/Backup 1 character 



MOV 


SLCX, R4 


TSTB 


SLBACK 


BNE 


1* 



Advance one character 



TSTB 


(R4) 


BEO 


9* 


1 HC 


R4 


BR 


2* 



Backup cursor one character 
1*: 



2f : 



CMP 


R4. #SLEBUF 


BLOS 


9* 


DEC 


R4 


CALL 


CHRP OB 


BR 


9* 



Error 



Ring the bfll 



B*: 



9$ ; 



CALL 


RNGBEL 


CLRB 


SLGOLD 


F i n i G h e d 




NOV 


(SP)+, R^l 


RETURN 





j Was gold key pressed?" 
; Br if yes — invalid 



i Is this a VT52? 
i Br if it is 



; Get current cursor pointer 
J Advance or backup'? 
jBr if backup 



J Are we at right end of line now? 

j Br if yes 

i Advance cursor 



i Are we at left end of line now? 

j Br if yes 

; Backup the cursor 

iDisplay cursor at correct position 



iRing the bell 

; Clear the gold key flag 



TSSLE — 
KEY4 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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- Key " 4 " pro c c j:- sing 



003732 



003732 

003740 103410 



003742 105737 OOOOOOG 
003746 00 1 003 



003750 105037 OOOOOOG 
003754 000402 



003756 004737 002600 



003762 000207 



. SBTTL KEY4 — Kfy "4" p-rac easing 
Key "4" — Set forward direction / Move to right end of line. 
KEY4: 

See if this is a user-dff ined key 



KEYCHK KC*KP4 
DCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



See if the gold key wafe pr-essed 



TSTB 
BNE 



SLGOLD 
1* 



jWas gold key pressed T-" 
j Br if yes 



Gold key was not pressed — Set foriuard direction 



CLRB 
BR 



SLBACK 
9* 



> Set forward direction 



Gold key was pressed - — Move to the right end of the line 
i^: CALL TCRITE ; Process just like right-arrow key 

Finished 
9$; RETURN 



TSSLE 
KEYS 
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p r c (■ <:■ B 1 n g 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
28 



003764 



003764 
003772 



003774 
004000 



004002 
004010 



. SBTTL KEYS -- Key "5" processing 
Kt?y "5" — Set backuartl direction / Move to left end of line 
KHYD: 

Se(? if this is a user-defined key 



103411 



105737 OOOOOOG 

001004 



112737 000001 OOOOOOG 
000402 



KEYCHK KC*KP5 
DCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



See if the gold key wat;- prfJSBed 



TSTB 
BNE 



SLGOLD 
1* 



i Was (5old key pressed? 
; Br if yes 



Gold key not pressed - Bet backward direction. 



004012 004737 002516' 



004016 000207 



MOVB 
BR 



#1. SLBACK 
9* 



■Set backward direction 



Gold key was pressed — Move to left end of line 
1^: CALL TCLEFT J Treat just like left-arrow key 

Finished 
9$; RETURN 






1 WwLwtZ. 

KB.Y6 
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Key "6 p roc (.'<::• Ging 



1. 
P. 
3 
4 
5 
6 
7 

e 

9 
10 

u 

12 
13 
14 
15 
16 
17 
18 
19 
20 

Si 

22 
23 
24 
25 
26 
27 
28 



004020 



004020 
004026 



,03411 



004030 00 4737 .t 1 566 ' 
004034 :i0300ri 



004036 000 1 37 004 1 54 ' 



004042 004737 0111 40 ' 
004046 105037 0000000 
004052 000207 



. SBTTL KEY6 -- Key "6" processing 
■> Key "6" — VTIOO: invalid, VT52: Lunl delete character 

> 

i Inputs: 

.: RJ - viab index number, 

> 

KEY6: 

i See if this is a user-defined key 



KEYCHK KC$KP6 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



Determine if this is a VT52 or VTIOO 



CALL 
BCC 



CHK52 
1* 



^ Is this a VT52? 
; Br i f not 



VT5,'' --- Treat key 6 like VTIOO comma key 

Jf-\P KEYCOH J Treat like comma key 

VTIOO --• invalid 



; Invalid function 
j Reset gold key flag 



1*: 


CALL 


R NOB EL 




CLRB 


SLGOLD 


9$: 


F^ETURN 





< 



TSSLE — 


- TSX-P 


Kl:^Y7 


-•- Key 


1 




2 




3 




4 




5 




6 




7 




8 


004054 


9 




10 




i:i. 




12 


004054 


13 


004062 


14 




15 




16 




17 


004064 


18 


004070 


19 




20 




21 




22 


004074 
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p T C V ! ■ ii 1 li q 



10340-'1 



004737 011140' 
105037 OOOOOOG 



000207 



. SBTTL KEY7 -■- Kt-y "7" processing 

K B ti " 7 " — No function 

I n p It t s : 
RJ -~ Job index numbev 

KEY7: 

See if this is a user-dc- fined key 



KEYCHK KC«KP7 

ecs 9* 
Not user-defined key 



CALL 


RNGBEL 


CLRB 


SLOOLD 


; F i n 3 B h e d 




9<S; RETURN 





; See if this is a user-defined key 
J Br if user-defined key 



; R i n c| the bell 
;Clear gold-key flaff 
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KB' YS - - Key " 8 " p t- o (. t • t- sing 

1 . SBTTL KEY8 — Key "8" procBBsing 

Kpm "S" — No function 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



004076 



004076 

004104 10340'' 



004106 004737 Oil 140 •" 
004112 105037 0000000 



004116 000207 



1 n p It t B ; 
R 1 -" Jo b index numb er 

KEY8: 

See if this is a user -defined key 



REYCHK KC*KP8 
BCS 9* 



; See if this is a user-defined key 
; Br if usei — defined key 



This is not a user-defined key 



CALL RNGBEL 
CLRB SLGOLD 



; Ring the bell 

J Clear gold-key flag 



Finished 
9$: RETURN 
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Klf Y9 -- K e y " 9 " p r o {. (•■ if. s :i n g 

. BBTTL KEY9 — Kt-y "9" processing 
Ken "9" — VTIOO; invalid, VT52: Cun3 delete word 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
2o 
27 
28 



004120 



004120 

004126 103411 



004130 004737 011566' 
004134 103002 



004136 000137 004262' 



004142 004737 011140' 
004:146 105037 OOOOOOG 
004152 000207 



Inputs: 
Rl ~ Job index numbei-. 

KEY9; 

See if this is a usei — defined key 



KEYCHK KC*KP9 
BCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key 



CALL 
BCC 



CHK52 
1* 



J Is this a VT52 terminal?" 
; Br if not 



VT52 — Treat like VTJOO minus key 

JMP KEYMIN ; Treat like minus key 

VTIOO — Invalid 



1*: CALL RNGOEL 
CLRB SLGOLD 
9$: RETURN 



;Ring the bell 
;Clear gold-key flag 



TSSLE • 
KEYCOM 



f 'aX~~r L us 
•" Key ".- " 



5 1 Fi fi Id Liny E 
pro f : «.' i:- sing 
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. SBTTL KEYCOM — Key ", " processing 
Comma !;py — Lunl delete character 



4 








5 


004154 


1 0246 




6 
7 
S 


004156 


010446 










9 








10 


004160 






11 
12 
13 


004166 


10343;-' 










14 








15 


004170 


105737 


0000000 


16 


004174 


OOL^!--'! 




17 








IS 








19 








20 


004176 


012702 


0000000 


21 


004202 


004737 


010126' 


22 


004206 


013704 


0000000 


23 


004212 


005304 




24 


004214 


004737 


010630' 


25 


004220 


105037 


0000000 


26 


004224 


000413 




27 








28 








29 








30 


004226 


013704 


OOOOOOG 


31 


004232 


105714 




32 


004234 


001407 




33 








34 








35 








36 


004236 


111437 


0000000 


37 


004242 


005204 




38 


004244 


004737 


010630' 


39 


004250 


004737 


007442 ' 


40 








41 








42 








43 


004254 


012604 




44 


004256 


012602 




45 


004260 


000207 





KEYCOM: MOV 
MOV 



R2, -(BP) 
K4, -(SP) 



See if this is a user-cJpf inec! key 



KEYCHK KC*COM 
BCS 9* 



; See if this is a user-defined key 
j Br if user-defined key 



See if Gold key (PF"1) ujiifc pressed. 



TSTB 
BEQ 



SLGOLD 
1* 



Oold key was pressed 



iWas Gold key pressed? 
i Br if not 

put back previously deleted character 

j Point to deleted-charac ter buffer 

.: Insert the character 

; Get current cursor pointer 

; Point to character u>e inserted 

i Position cursor to inserted character 

; Clear Gold-key flag 



Gold key not pressed • — Delete character under the cursor 



MOV 


ttSLCBUF, R2 


CALL 


INSERT 


MOV 


SLCX,R4 


DEC 


R4 


CALL 


CHRPOS 


CLRB 


SLGOLD 


BF« 


9* 



1^: 



MOV 

TSTB 

BEQ 



SLCX, R4 

<R4) 

9* 



iOet current cursor pointer 

jIs cursor at right end of line? 

i Br if yes 



Save character being deleted and then delete it 



2*: 



9*: 



MOVB 


<R4), SLCBUf 


INC 


R4 


CALL 


CHRPOS 


CALL 


DELEFT 


F i n i & h e d 




MOV 


< SP ) +, R4 


MOV 


< SP ) +> R2 


RETURN 





; Save character being deleted 
; Move cursor right 1 character 

; Now delete character to left of cursor 



TSSLE — TS X -P 1 u 5 S i n <i 1 e 
KEYMIN - Key " " proM f. 
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i n g 
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3 








4 








5 


004262 


010246 




6 


004264 


010346 




7 


004266 


010446 




8 


004270 


010546 




9 








iO 








11 








12 


004272 






13 


004300 


103463 




14 








15 








16 








17 


004302 


013704 


0000000 


18 


004306 


105737 


0000000 


19 


004312 


001041 




20 








21 








22 








23 


004314 


01040;; 




24 


004316 


1 1 2400 




25 


004320 


001453 




26 


004322 


004737 


010776 •■ 


27 


004326 


103405 




28 


004330 


1 1 2400 




29 


004332 


001410 




30 


004334 


004737 


010776' 


31 


004340 


103373 




32 








33 








34 








35 


004342 


1 1 2400 




36 


004344 


001403 




37 


004346 


004737 


010776' 


38 


004352 


103773 




39 


004354 


005304 




40 








41 








42 








43 








44 


004356 


010503 




45 


004360 


012702 


0000000 


46 


004364 


112322 




47 


004366 


020304 




48 


004370 


103775 




49 


004372 


105012 




50 








51 








52 








53 


004374 


010503 




54 


004376 


1 1 2423 




55 


004400 


001376 




56 








57 









. SBTTL KEYM'IM — ~ Key " " processing 

MiritiK key — Lunl delett- loord 



KEYMIN: MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R3. - <yP) 
R4, -(SP) 
R5. -(SP) 



Sgg if this is a usei — defined keM 



KEYCHK KC*M.IN 
BCS 20$ 



i See if this is a user-defined key 
J Br if user-defined key 



MOV 


SLCX, R4 


TSTB 


SLGOLD 


BWE 


1* 



>*: 



MOV 


R4, R5 


MOVE 


(R4)+, RO 


BEQ 


20$ 


CALL 


CHKDLM 


BCS 


3$ 


MOVB 


(R4)+, RO 


BEQ 


4* 


CALL 


CHKDLM 


BCC 


2* 



31$: 



'?$: 



5$: 



See if the gold key was pressed 

Oet current cursor index 
Was the gold key pressed? 
Br if yes 

Sold key was not pressed -■- Delete the word under the cursor 

Remember starting position of deletion 

Get current char 

Br if at right end of line nou» 

Is this character a delimitBr?" 

Br if yes 

Get next character 

Br if hit right end of line 

Is this character a delimiter?" 

Br if not 

Delete delimiters that follow the word 

i Oet next character 

i Br if hit right end of line 

ils this a delimiter? 

J Loop if yes 

; Point to 1st char of following word 

We have identified the characters to delete. 
Move the characters to a holding buffer. 

(vet index to Ist char to delete 

Point to holding buffer 

Move char to holding buffer? 

Moved all we need to delete? 

Loop if not 

Put null at end of deleted char string 

Delete the characters from the buffer 



MOVB 


(R4)+, RO 


BEQ 


4$ 


CALL 


CHKDLM 


BCS 


3$ 


DEC 


R4 



MOV 


R5, R3 


MOV 


ttSLDBUF. R2 


MOVB 


(R3)+, <R2)-f 


CMP 


R3>R4 


BLO 


5$ 


CLRB 


(R2) 



6$: 



MOV 

MOVB 

BNE 



R5, R3 
(R4)+, (R3)t- 

6* 



Get pointer to Ist char to delete 
Move remainder of line left 
Loop till null at end moved 



Redisplay the line 



TSSLE - 


„ TSX-Pl 


u u Si n t( X 


e L i rt e E' 


KEYMIN - 


-- Key " 


'•■" proct 


B 5 i n g 


5B 








59 


004402 


010504 




60 


004404 


004737 


010324' 


6.1. 








62 








63 








64 


004410 


004737 


010630' 


65 


004414 


0004 If; 




66 








67 








6S 








69 


004416 


105037 


0000000 


70 








71 








72 








73 


004422 


013704 


0000000 


74 


004426 


012702 


0000000 


75 


004432 


004737 


010126' 


76 


004436 


004737 


010630' 


77 


004442 


00040; ' 




73 








79 








eo 








81 


004444 


004737 


011140' 


82 








S3 








84 








85 


004450 


012605 




86 


004452 


012604 




87 


004454 


012603 




88 


004456 


012602 




89 


004460 


000207 





f 
c 



MOV 
CALL 



R5, R4 
PAINT 



Reposition cursor 



CALL 
BR 



CHRP OS 
20* 



; Get new position of cursor 

; Redisplay the line 



jRespoBition cursor 



Oold minus key — Replace deleted word 



I'-li: CLRB SLGOLD 

Ins<?rt the deleted u/ovd 



MOV 


SLCX,R4 


MOV 


#SLDBUF, R2 


CALL 


INSERT 


CALL 


CHRPOS 


BR 


20* 



jReset gold-key flag 



> Get current cursor index 

i Point to buffer with deleted text 

i Insert the text 

i Position cursor to front of replaced text 



Error — Ring bell 
19*: CALL RNOBEL 

F i n i shed 
>0*: 



; Ring bell 



MOV 


(SP)+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


(SP)+> 


R3 


MOV 


(SP)+, 


R2 


RETURN 







TSSLE 
KBS 
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Save a c ommiDKl 



3 








4 








5 


004462 


010446 




6 


004464 


010546 




7 








S 








9 








10 


004466 


105037 


OOOOOOG 


11 


004472 


012704 


OOOOOOG 


12 


004476 


012705 


OOOOOOG 


13 


004502 


1 1 242'.} 




14 


004504 


001376 




15 








16 








17 








18 


004506 


012605 




19 


004510 


012604 




20 


004512 


000207 





. BBTTL KBS — bfive a command 
Thip routine is called when PFl S is typed. 



It saves a command. 



KBS: 


MOV 


R4, -(Sf^) 




MOV 


R5, ~('3P) 


; Save 


1 i r( e 




> 


CLRB 


SLGOLD 




MOV 


ttSLEBUF, R4 




MOV 


#SLSBUF, R5 


215: 


MOVB 


<R4)+, (R5) t 




BNE 


2* 



F i n i s ii e d 



MOV 
MOV 
RETURN 



<SP)+, R5 
<SP)+, R4 



Clear gold-key flag 

Point to current line buffer 

Point to save buffer 

Save the line 

Loop if more to save 
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KBX --- Reccili the u^jved commarul 

1 

2 

3 

4 

5 004514 0.1.0546 

6 

7 

8 

9 004516 012705 0000000 
10 004522 0047-37 007672' 
11 
12 
13 

14 004526 01260;} 

15 004530 000207 



t 

c 



. SBTTL KBX ■ — Retail the saved command 
ThiB routine is called when PFl X is typed. It recalls the saved cominand. 

KBX; MUV R5, ~<SP) 



Insfjrt saved line 



MOV 
CALL 

F i n i J- it e d 



#SLSBUF, R5 
RSTLIN 



i Point to buffer with saved line 
; Restore the line 



MOV (SP)+, R5 
RFITURN 
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E 1 • E :l p T- o c e s s .1 ri 9 



3 
4 
5 
6 
7 

a 

9 

io 
u 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



004532 



004532 

004540 103404 



004542 004737 011140' 
004546 105037 0000000 



004552 000207 



E 1 p T" o cess i n g 



. SBTTL El 

; Pr <j(PSB El key. 

i .1 n p u t B : 

i Rl -■ Job index numbet^ 

El: 

i 

; See if this is a user-dpfined key 



KEYCHK KC$E1 
BCS 9* 



; See if this is a user-defined key 
i Br if usei — defined key 



This is not a user-defined key. 
InvaJid keu. 



CALL RNGBEL 
CLRB SLOOLD 



Ring the bell 
Clear gold-key flag 



: Fin i s bed 
9*: RETURN 



TSSLE — TSK-PiuE Smulu Line E MACRO V05. 04 Monday 21-Dec"S7 07:45 Page 38 
E2 " - E2 p r o c £' 5 s i n y 



4 

5 

6 

7 

8 

9 

10 

1.1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 



004554 



004554 

004562 103404 



004564 004737 011140' 
004570 105037 OOOOOOG 



004574 000207 



I 

c 



. SBTTL E2 
Proc. (?ris E2 key. 



I n p u i B : 
Rl == Job index number. 



- t2 processing 



E2: 



See if this is a user-dt^f ined key 



KEYCHK KC«E2 
BCS 9* 



;See if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
■Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



F i n i 5 h €? d 
9$: RETURN 



; Ring the bell 
jClear gold-key flag 



i 
t 
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1:3 - — E3 p r o c G s s i 1 1 ti 



3 
4 

6 

7 

a 

9 
10 

.i.t 

12 
13 
14 
15 
16 
17 
18 
19 
20 



004576 



004576 

004604 1 03404 



004606 004737 011140' 
004612 105037 OOOOOOG 



. SBTTL E3 

Proct'Bfii E3 key. 

I n p u t f; ; 
Rl =- vJob index number. 



(r.3 processing 



E3: 



See if this is a user-defined key 



KEYCHK KC*E3 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key, 



CALL RNGBEL 
CLRB SLGOLD 



■> Ring the bell 
;Clear gold-key flag 



23 004616 000207 



F i n i s h e d 
■i'^^: RETURN 
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E4 - • - E4 p T- o c (? s 3 i M 9 



3 

4 

5 

6 

7 

8 

9 

JO 

11 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 



004620 



004620 

004626 103404 



004630 004737 011140' 
004634 105037 0000000 



. SBTTL E.4 
Pro cess E4 key. 



I n ft u 1 5 : 
Rl " Job index number. 



— t4 processing 



4: 



See if this is a user-defined key 



KEYCHK KC*E4 
BOS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Inval id keq. 



CALL RNGBEL 
CLRB SLGOLD 



23 004640 000207 



f " i n i & h e d 
9$: f^ETURN 



i Ring the bell 
iClear gold-key flag 



€ 



TSSLE — 

1 

2 

3 

4 

5 

6 

7 

3 

9 

10 

1,1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
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- E5 procGssinq 



004642 



004642 

004650 103404 



004652 004737 011140' 
004656 105037 0000000 



. BBTTL E5 

F'rt'f tMi, s E5 key. 

I n p i( t B : 
Rl ~ Job index number. 



I- ?•' processing 



E5: 



See if this is a user-defined key 



KEZYCHK KC*E5 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



This is not a user-def ine-d key. 
I nvait id key. 



23 004662 00020V 



CALL 


RNGBEL 


CLRB 


SLGOLD 


; Finished 




9-$: RETURN 





;Ring the bell 

; Clear gold-key flag 
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E6 — E6 p r o c e s s i / 1 q 



1 
P 
3 
4 

6 
7 
3 

V 
10 

J. .1 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 



f-6 processing 



004664 



004664 
004672 



103404 



004674 004737 1 1 1 40 ' 
004700 105037 OOOOOOG 



004704 000207 



. SDTTL E6 
Prot-CBs E6 kei). 

1 n f ) u t & : 

f'i -■ Job index numbe'c 



See if this is a usei — defined key 



KEYCHK KC*E6 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid ken. 



9*: 



CALL 
CLRB 

Fini shed 

RETURN 



RNGBEL 
SLGOLD 



; Ring the bell 
(Clear gold-key flag 
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4 
5 
6 
7 

a 

9 
10 
1.1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



004706 



004706 

004714 10340^^ 



004716 004737 011140' 
004722 105037 000000<5 



. SB TIL F6 
Procer, r* F6 key. 

Inputs: 

Rl = v'ob :Lndex nufiibPT. 



1-6 procciiising 



■6: 



See if this is a user-defined key 



KEYCHK KC*F6 
BCS 9* 



.; See if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



23 004726 000207 



CALL 


RNGBEL 


CLRB 


SLGOLD 


; F i n i b h e d 




9*: RETURN 





.: Ring the bell 

> Clear gold-key flag 



c 

c 
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p 7 _ .._ p 7 p I . Q ,; e s s i J i { I 



:l 

2 

3 

4 

5 

6 

7 

S 

9 

10 

l.t 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



004730 



004730 

004736 103404 



004740 004737 011140' 
004744 10S037 0000000 



F7 processing 



F7 : 



. BBTTL. F7 

ProceBi?. F7 key. 

Input n : 
Rl = vJob index number. 



See if this is a user-(Jp Pined key 



KEYCHK KC*F7 
BCS 9* 



J See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



23 004750 000207 





CALL 


RNGBEL 




CLRB 


SLGOLD 




Fini shed 




9^: 


RETURN 





;Ring the bell 

.: Clear gold-key flag 
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f-8 ■■ -■ F8 procGSE i!i<.i 



4 
5 



3 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



004752 



004752 

004760 103404 



004762 004737 011140' 
004766 105037 OOOOOOG 



. BBTTL F8 
Process F8 key. 



Inputs: 
Rl ~ Job index number. 



- - } • B p r o c e s B i JT g 



F8: 



See if this is a user-defined key 



KEYCHK KC*FS 
BCS 9* 



i See if this is a user-defined key 
i Br if usei — defined key 



This is not a usei — defined key. 
Invalid key. 



23 004772 000207 



CALL 


R NOB EL 


CLRB 


SLGOLD 


f F i n i £ h e ci 




9«: RETURN 





; Ring the bell 
iClear gold-key flag 
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{.9 _ _. p9 processi»U( 



F9 procesBing 



2 
•-) 

4 

5 

6 

7 

8 

9 

10 

.1. J. 

1.2 

13 

14 

15 

16 

17 

18 

19 

20 

21 



004774 



004774 

005002 103404 



005004 004737 011140' 
005010 105037 0000000 



F9: 



. SBTTL F9 

Prot PiH-B F9 key. 

Inputs; ; 
RJ ~ Job index number. 



See if this is a user-defined key 



KEYCHK KC$F9 
BCS 9$ 



; See if this is a user-defined key 
i Br if user-defined key 



This is not a user-def int'd key. 
Invalid key. 



13 005014 000207 



CALL 


RNGBEL 


CLRB 


SLGOLD 


; f' i n i s [1 e d 




9*; RETURN 





; Ring the bell 
;Clear gold-key flag 
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f t — F 1 p r cj c e s s i n » q 

— F-10 proceGsing 



3 
4 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

' ■? 1 

22 
23 



005016 



005016 

005024 .103404 



005026 004737 011140' 
005032 105037 OOOOOOG 



005036 000207 



. SBTTL FIO 
; Procest::. FIO key. 

i 

; I TT p 1.1 1 B : 

; Rl ~ Job indeyi number. 

FIO: 

i 

J See if this is a user-defined key 



KEYCHK KC*F10 
BCS 9* 



J See if this is a user-defined key 
i Br if user-defined key 



Th i £> is not a usei — defint-d key. 
Inval id key. 



CALL 


RNGBEL 


CLRB 


SLGOLD 


F i n i s h e d 




RETURN 





; Ring the bell 

; Clear gold-key flag 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



005040 



005040 

005046 103404 



005050 004737 011140' 
005054 105037 0000000 



. BBTTL Fll 

P rot: ess Fll key. 

I n p u t r> : 
Rl -= Job index number. 



Ml procecEing 



11: 



See if this is a user-defined key 



KEYCHK KC$F11 
BCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invali id key. 



23 005060 000207 



CALL 


RNOBEL 


CLRB 


SLGOLD 


.; F i 71 i s h e d 




9*: RETURN 





;Rint| the bell 

i Clear gold -key flag 



TSSLE 
F;l2 



1 
2 
3 
4 
5 
6 
7 

a 

9 

l.t 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



005062 



005062 

005070 103414 



005072 105737 OOOOOOG 

005076 ooioor* 



005100 112705 000010 
005104 004737 006156" 
005110 000404 



005112 1 5037 OOOOOOG 
005116 004737 011140' 
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■■ F i 2 p T o c e s s :i t i « 

. SBTTL F12 — $-12 procsBsing 

ProcetiE F12 key — liiS. 

I n p u i 5 : 
\\\ •- v'ob index number. 

See if this is a user-defined key 



I 
I 



F12 



KEYCHK KC*Fi2 
BCE-> 9* 



;See if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
See if gold key was pressed 



TSTB 
BNE 



JLGOLD 



5* 



Gold key was not pressed 



MOVE 


#10, R5 


CALL 


ICPBS 


xm 


9* 



i Was gold key pressed? 
j Br if yes 



; Get backspace character 
iProcess backspace character 



Go.ld key was pressed 



005122 000207 



5*: CLRB 


SLOOLD 


CALL 


RNGBEL 


; F i n i & h e d 




9*: RETURN 





i Reset gold key 
i Ring the bell 
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F 1 3 -• - F i 3 p T o c e s s s. n a 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
.1. 7 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



005124 



005124 
005132 



J. 034 14 



005134 105737 OOOOOOG 
005140 OOlOOt^ 



005142 012705 000012 
005146 004737 005764' 
005152 000404 



005154 10 5037 0000000 
005160 004737 011140' 



005164 000207 



. SBTTL F13 — t-J3 processing 

Procei^G F13 key — LP. 

I n p u t & : 
Rl :-- Job index number-. 



13: 



See if this is a u!ier-df:>f ined key 



KEYCHK KC*F13 
BC5 9* 



/See if this is a user-defined key 
i Br if user-defined key 



Thia is not a user-defined key. 
See if gold key ujas pressed 



TSTB 
BNE 



SLGOLD 

5« 



Gold key mas not pressed 



Mf3V 


#12, R5 


CALL 


ICPLF 


BR 


9* 



iWas gold key pressed? 
; Br if yes 



; Get line-feed character 

; Process line-feed character 



Goild key was pressed 



5*: CLRB 


SLGOLD 


CrALL 


RNGBEL 


i F i n i G h e d 




9$: RETURN 





i Reset gold key 
> Rinq the bell 



I- 14 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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• F 1 4 p i MJ c e B s i 1 i cj 



005166 



005166 

005174 .103404 



005176 004737 011140' 
005202 105037 OOOOOOG 



. SBTTL F14 

Proress F14 key. 

Input i:> : 
Rl -- -Job index number, 



F 1 4 process i n g 



F14: 



See if this is a usei — defined key 



KEYCHK KC*F14 
BCS 9* 



See if this is a user-defined key 
Br if usei — defined key 



This is not a user-defined key. 
.l'nva.l id key. 



CALL RNGBEL 
CLRB SLGOLD 



iRing the bell 

j Clear gold-key flag 



23 005206 000207 



Finished 
9*: RETURN 
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FJ 5 -— • F15 proc essJ nci 

. SBTTL F15 r-i5 processing 

P r o ( (:> !■> B F 1 5 key — H b 'i p . 



1 

3 
4 
5 
6 
7 
S 
9 
10 

li 

12 

13 
14 
15 
16 
17 
IS 
19 
20 

CL .1 



005210 



005210 

005216 10340^ 



005220 004737 011140' 
005224 105037 0000000 



I n p u t B : 
Rl = Job index number. 



F15: 



i See if this is a user-defined key 



KEYCHK KC*F15 
BCS 9* 



.: See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



23 005230 000207 



9$: 



CALL 
CLRB 

F i n i & ii e d 

RETURN 



RNGBEL 
SLOOLD 



; Ring the bell 
;Clear gold-key flag 



4 
I 



TSSLE — 
FJ6 

1 
2 

a 

4 

6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
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..„ pj^ pc-DC ess:i. ViU 



005232 



005232 

005240 10340'! 



005242 004737 011140' 
005246 105037 OOOOOOG 



. SDTTL F16 — F16 processing 

i Process F16 key — Du. 

i Inputs: 

i Rl ^ Job index number. 



F16: 



See if this is a user-defined key 



KEYCHK KC$F16 
BCS 9* 



i See if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



13 005252 000207 



F' i It i s h e d 

RETURN 



i Ring the bell 
iClear gold-key flag 
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FJ, 7 — FI7 proc ess;i nc( 



3 
4 
5 
6 
7 
S 
9 

io 
11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



005254 



005254 

005262 103404 



005264 004737 1 1 1 40 ' 
005270 105037 OOOOOOG 



. SBTTL F17 

Proc. ecK F17 key. 

Inputs: 
Rl - Job index number. 



r- 17 p r o c e 5 B i n g 



F17; 



See if this is a u&er-dc'f ined key 



KEYCHK KC*F17 
BCS 9$ 



iSee if this is a uset — defined key 
i Bt if user-defined key 



> This is not a user~def int?d key. 

> Invalid keu. 



23 005274 000207 



CALL 


RNGBEL 


CLRB 


SLGOLD 


j Finished 




?$: RETURN 





;Ring the bell 

J Clear gold-key flag 



TSSLE — TSX-Plus Sinciic? Line E MACRO V05. 04 Monday 21-Dec-S7 07:4^^ Page 55 
F18 FIS proc. essintf 

.1. . SBTTL FIS - F.1.8 processing 



o 



3 .: Prot:t?BE F18 key. 

4 ; 

5 i Inputs: 

6 ; Rl = vJob index number. 

7 i 

a 005276 FIB: 

9 ; 

10 i See if this is a usei — defined key 

11 i 

12 005276 KEYCHK KC$F18 J See if this is a u&er-def ined key 

13 005304 103404 BCS 9* i Br if user-defined key 

14 ; 

15 t This is not a user-defined key. 

16 ; InvaJid key. 

17 ; ' 
IS 005306 004737 011140-' CALL RNOBEL .: Ring the bell 

19 005312 105037 OOOOOOG CLRB SLOOLD i Clear gold-key flag 

20 i 

21 i 

22 ; 

23 005316 000207 9*: 



CALL 


RNOBEL 


CLRB 


SLOOLD 


Finished 




RETURN 
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FJ. 9 ---• F19 processing 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



005320 



005320 

005326 103404 



005330 004737 011140' 
005334 105037 OOOOOOG 



F.19 processing 



. BBTTL F19 

; Froc €?!:*:> F.19 key. 

; Inputs: 

; Rl=^ Job index number. 

t 

F19: 

; See if this is a user— defined key 



KEYCHK KC*F19 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



; This is not a user-defined key. 
i Invalid key. 



23 005340 000207 



CALL 


RNGBEL 


CLRB 


SLGOLD 


Finished 




M: RETURN 





i Ring the bell 

; Clear gold-key flag 



TSSLE 
r-20 
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■ F20 processing 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



005342 



005342 

005350 103404 



005352 004737 011140' 
005356 105037 OOOOOOQ 



F20 processing 



. SBTTL F20 

ProcpBB F20 key. 

I n p u t B : 
Rl = v'ob index numb en-. 

F20: 

See if this is a usei — defined key 



KEYCHK KC*F20 
BCS 9* 



j See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid keq. 



23 005362 000207 



CALL 


RNGBEL 


CLRB 


SLGOLD 


i Finis h e d 




9^: RETURN 





;Ring the bell 

; Clear gold-key flag 



TSSLE - 
KEYDOT 



005364 



005364 

005372 103404 



3 

4 

5 

6 

7 

8 

9 
iO 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 005404 00020: 



005374 004737 01 1 140 ' 
005400 105037 0000000 
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■ Key ". " proi. fssirig 

. SDTTL KEYDOT —■ Key ". " processing 

J Perind key — No dpf'in(?d function 

KEYDOI : 

i See if this is a user-defined key 



KEYCHK KC*DOT 
BCS 9* 



i See if this is a user-defined key 
i Bt if user-defined key 



This is not a user-defined key. 
Inval id key. 



CALL R NOB EL 
CLRB SLGOLD 



i Finished 
9ig: RETURN 



; Ring the bell 

; Clear gold-key flag 



TSSLE -- 
DOCTRL - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1.1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-PluD Sinyl 
• Process contr- 
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ol characters 



005406 010246 



005410 
005414 
005416 
005424 
005426 
005432 



005434 
005442 



005444 
005450 
005452 
005460 
005462 
005470 
005472 
005500 



005506 
005510 
005512 



005516 
005520 



120537 
001013 
032761 
001407 
016102 
001404 



00042b 



120537 
001013 
032761 
001004 
052761 
000412 
042761 
042761 



010500 
006300 
004770 



012602 
000207 



SBTTL DOCTRL. 



Process control characters 



I 

c 



OOOOOOG 

0000000 OOOOOOG 
OOOOOOG 



DOCTRL is called from the input interrupt character processing when 

we determine that the character being processed is a control character. 

Inputs: 

Ri ~ Virtual line number. 
R5 = Character to proct-Bs. 

DOCTRL: MOV R2, -<SP) 

See if this is a request to print the current tuindow 

CMPB R5, VVPWCH ; Request to print current window? 

BNE 5* ;Br if not 

BIT #*PWKEY, LSWl 1 <R1 )i Is print window control char enabled? 

BEQ 5* ; Br if not 

MOV LWIND0<R1 > » F^2 J Is windowing enabled for this process? 

BEQ 5* ; Br if not 

Request to print the current screen window 

; Print the window 



OCALL 
BR 



WINPR" 
9* 



See if this is a request to switch to a virtual line 



ooooooe 5$ : 

0000000 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 2$: 
OOOOOOG OOOOOOG 1*: 



CMPB R5. VVLSCH i Is this char a request to switch to vir line? 

BNE 1* ;Br if not 

BIT #*CTRLW. LSW3<R1); Was last char also ctrl-W? 

BNE 2* J Br if yes — Treat two ctrl-W like one ctrl-W 

BIS #*CTRLW. LSW3<R1 )i Remember last character was ctrl-W 

BR 9* ; Finished with this character 

SIC #*1ESC,LSW<R1) ;Say last char was not escape 

BIC #*CTRLW, LSW3<Rl)i Say last char not ctrl-W 



ThiB is an ordinary control character 



005522' 



9$: 



MOV 


R5, RO 


ASL 


RO 


CALL 


@CTLRTN(RO) 


Fini shed 




MOV 


(SP)+, R2 


RETURN 





Get the control character 

Convert to word table index 

Call appropriate processing routin* 



Branch table for control character processing routines. 



005522 
005524 
005526 
005530 
005532 
005534 
005536 



007026' 
006376 ■' 
000614' 
006422' 
000614' 
000614' 
000614' 



CTLRTN: . WORD ICPNUL 

. WORD ICPC TA 

. WORD REGCHR 

. WORD ICPCTC 

. WORD REGCHR 

. WORD REGCHR 

. WORD REGCHR 



00 ■ NUL 

01 - SOH (control -A) 

02 - STX 

03 - ETX <control-C> 

04 - EOT 

05 - ENQ 

06 - ACK 



TSSLE — 
DOCTRL - 
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" Process control charac tt?T-& 



Monday 21-Dec-S7 07:45 Page 59-1 



58 005540 

59 005542 

60 005544 

61 005546 

62 005550 

63 005552 

64 005554 

65 005556 

66 005560 

67 005562 

68 005564 

69 005566 

70 005570 

71 005572 

72 005574 

73 005576 

74 005600 

75 005602 

76 005604 

77 005606 

78 005610 

79 005612 

80 005614 

81 005616 

82 005620 



000614' 

006156' 

000614 ■' 

005764 ' 

000614' 

000614' 

00 562; r 

000614 •' 

000614' 

000614' 

000614' 

006512' 

000614' 

000614' 

006546' 

000614' 

006512' 

000614' 

000614' 

006666 ' 

006274 ' 

000614 

000614 

000614 

000614 



WORD 


REGCHR 


WORD 


ICPBS 


WORD 


REGCHR 


WORD 


ICPLF 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTU 


WORD 


REGCHR 


WORD 


ICPCTR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTZ 


WORD 


ICPESC 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 



f 



07 


- 


BEL 






10 


- 


Bach 


space 




11 


.„ 


TAB 






12 


.„ 


Line 


> feed 




13 


- 


VT 






14 


„ 


FF 






15 


._, 


Carriage ret 


urn 


16 


- 


SO 






17 


- 


SI 


< control 


-0) 


20 


_ 


DLE 






21 


_. 


DCl 


< control 


~Q) 


22 


_,. 


DC2 


(control 


-R) 


23 


_. 


DC3 


< control 


-S) 


24 


_.. 


DC4 






25 


_ 


NAK 


( control 


-U) 


26 


_. 


SYN 






27 


- 


ETB 


(control- 


-W) 


30 


„ 


CAN 


(control 


-X) 


31 


_ 


EM 






32 


„ 


SUB 


( control 


-2) 


33 


.... 


ESC 






34 


~ 


FS 






35 


„ 


GS 






36 


- 


RS 






37 


~ 


US 







TSSLE 
ICF^CR 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2e:* 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005622 010446 



005624 105737 0000000 
005630 001003 



005632 105237 0000000 
005636 000450 



005640 105037 OOOOOOG 
005644 105737 OOOOOOG 
005650 001407 



005652 105037 OOOOOOG 

005656 013704 OOOOOOG 

005662 105014 

005664 004737 010324' 



005670 004737 

005674 013704 

005700 105724 

005702 001376 

005704 005304 

005706 112724 

005712 112724 

005716 105014 



007160' 
OOOOOOG 



OOOOOOG 
OOOOOOG 
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- Carriage-return processing 

. BBTTL ICPCR — Carriage-return processing 

Process Carriage-return character. 

I n puts: 
Rl "- Virtual line index number. 
R5 = Current input character. 



ICPCR: 



MOV 



R4, -<SP) 



If we have not yet gotten line-feed character* set flag and wait 
for line-feed to arrive. 



TSTB 
BNE 



SLCR 
5* 



i Have uie seen line-feed yet? 
; Br if yes 



We have not seen line-feed yet. Set flag and wait for line-feed. 



INCB 
BR 



SLCR 
9* 



; Set flag saying we are waiting for line feed 
; Defer processing until after line feed 



We have received carriage return and li?ie feed. 
See if Gold key has been pressed. 



5'$: 



CLRB 


SLCR 


TGTB 


SLGOLD 


BEQ 


1* 



i Clear carriage return flag 
; Has gold key been pressed? 
J Br if not 



CLRB 


SLGOLD ; 


MOV 


SLCX,R4 i 


CLRB 


(R4> ; 


CALL 


PAINT ; 



1*: 



005720 112700 OOOOOOG 

005724 004737 011174' 

005730 032761 OOOOOOG OOOOOOG 

005736 001004 

005740 112700 OOOOOOG 

005744 004737 011174' 



Gold key was pressed — Truncate line before terminating it 

Clear gold-key flag 
Get current cursor pointer 
Truncate edit line 
Redisplay line 

Terminate input line. 

Save the completed input line 

Point to cursor position 

Search for end of line 

Loop till null hit 

Point to null 

Store carriage-return 

And line -feed at end of line 

Put null at end 

Echo carriage-return & line-feed to terminal 

MOVE #CR, RO ; Get carriage return 

CALL ECHO ;Echo carriage return 

BIT #*NOLF, LSW6<R1) i Are we suppressing LF echoing after CR? 

BNE 3* ; Br if yes 

MOVE #LF, RO .iGet line-feed character 

CALL ECHO iEcho line feed 

Signal line completed 



CALL 


SAVLIN 


MOV 


SLCX,R4 


TSTB 


(R4) + 


BME 


2« 


DEC 


R4 


MOVB 


#CR, (R4)+ 


MOVE 


#LF, (R4) + 


CLRB 


(R4) 



i 
c 
f 
I 
c 
i 
i 
I 

€ 
€ 

I 

i 
i 
i 

i 
i 
i 
I 
i 
i 
I 
( 
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ICPCR ~- Car riaqe? -return processing 

58 005750 004737 007334' 3'^: CALL LINFIN ; Input line is finished 

59 i 

60 i Say that cursor is at Iff-t margin 

61 i 

62 005754 105061 0000000 CLRB LCOL(Rl) i Say cursor is at left margin 

63 i 

64 i Finished 

65 ; 

66 005760 012604 9?: MOV (SP)+, R4 

67 005762 000207 RETURN 



TSSLE — TSX-Plus Sincjie Line E 
ICPLF — Line- feed pracessinq 



.1 



3 








4 

5 








6 








7 








8 








9 


005764 






10 








11 








12 








13 








14 


005764 


105737 


OOOOOOG 


15 


005770 


001314 




16 








17 








18 








19 


005772 


010246 




20 


005774 


010346 




21 


005776 


010446 




22 


006000 


010546 




24 








25 








26 


006002 


105737 


OOOOOOG 


27 


006006 


001407 




28 








29 








30 








31 


006010 


012702 


OOOOOOQ 


32 


006014 


004737 


010126' 


33 


006020 


105037 


OOOOOOG 


34 


006024 


000447 




3 b 








36 








37 








38 








39 


006026 


013704 


OOOOOOG 


40 


006032 


010405 




41 


006034 


020527 


OOOOOOG 


42 


006040 


101441 




43 


006042 


114500 




44 


006044 


004737 


010776' 


45 


006050 


103006 




46 








47 








48 








49 








50 


006052 


020527 


OOOOOOG 


51 


006056 


101413 




52 


006060 


120045 




53 


006062 


001773 




54 


006064 


005205 




55 








56 








57 
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. SBTTL ICPLF — Line-feed processing 

Process Line-feed input character. 

Inputs: 
Ri -- Virtual line inde:< number. 
R5 = Current input character. 

.TCPLF: 

If this is a line feed that is part of a carriage-return/l ine-f eed pair 

then go to do carriage return processing. 



TSTB 
BNE 



SLCR 
ICPCR 



i Is this line feed after a carriage return? 
i Br if yes — Go do carriage return processing 



This is a line feed by itself 



MOV 
MOV 
MOV 
MOV 



R2, -(BP) 
R3; ~(SP) 
R4, -<SP) 
R5, -<SP) 



See if Gold key (PFl) xuas pressed before line-feed 



TSTB 
BEQ 



SLGOLD 
1* 



; Was gold key pressed? 
; Br if not 



1$: 



Gold key was pressed — Replace previously deleted word. 

iPoint to delete buffer 
; Replace the deleted word 
;Clear the gold key 



Gold key was not pressed ■ — Delete the word to the left of the cursor. 
Begin by deleting any delimiters immediately to left of cursor. 

; Get pointer to character under cursor 



MOV 


#SLDBUF, R2 


CALL 


INSERT 


CLRB 


SLGOLD 


BR 


9* 



11*: 



MOV 


SLCX,R4 


MOV 


R4, R5 


CMP 


R5. #SLEBUF 


BLOS 


9* 


MOVB 


-<R5),R0 


CALL 


CHKDLM 


BCC 


4* 



J Are we at left end now? 

> Br if yes 

; Get next character to be deleted 

i Is this character a delimiter? 

; Br if not 



Found delimiter to left of cursor. 

Delete all consecutive occurrances of the delimiter. 



3*: 



; Are we at left end of line now? 

; Br if yes 

; See if there are more occurrences of delim 

.: Br if yes — keep deleting 



We have now deleted any delimiters to the left of the cursor. 
Begin to delete the word to the left of the cursor. 



CMP 


R5, #SLEBUF 


BLOS 


6* 


CMPB 


RO, -<R5) 


BE<3 


3« 


INC 


R5 



TSSLE — 


- TSX-Pl 


u 5 Si ri ! 1 ]- (-' Line E 


ICPLF - 


— Line- 


-feed p r c 


t e B s i n tj 


58 








59 


006066 


020527 


OOOOOOG 


60 


006072 


101405 




61 


006074 


114500 




62 


006076 


004737 


010776' 


63 


006102 


10337J 




64 


006104 


005205 




65 








66 








67 








68 








69 


006106 


010503 




70 


006110 


012702 


OOOOOOG 


71 


006114 


1 1 2322 




72 


006116 


020304 




73 


006120 


10377S 




74 


006122 


105012 




75 








76 








77 








78 


006124 


010503 




79 


006126 


1 1 2425 




80 


006130 


00 1 376 




81 


006132 


010304 




82 








S3 








84 








85 


006134 


004737 


010324' 


86 








87 








80 








89 


006140 


004737 


010630' 


90 








91 








92 








93 


006144 


012605 




94 


006146 


012604 




95 


006150 


012603 




96 


006152 


012602 




97 


006154 


000207 
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4*: 



CMP 


R5. #SLEBUF 


BLOS 


6* 


MOVB 


-(R5>.R0 


CALL 


CHKDLM 


BCC 


4* 


IMC 


R5 



■*: 
10*: 



7«: 



; Have lue hit left end of line? 

i Br if yes 

; Get next char to delete 

j Is this character a delimiter? 

; Br if not 

jDon't delete the delimiter 

We have now identified the characters to delete. 

Save characters beinp deleted in deleted-string buffer. 

; Point to left-most character to delete 

; Point to deleted-string buffer 

j Move chars to holding buffer 

J Moved all that need to be deleted? 

;Loop if not 

j Put null at end of deleted string 

Delete the characters from the buffer 

; Move over characters to right of deleted ones 
}Qet new cursor character index 



MOV 


R5, R3 


MOV 


#SLDBUF.. R2 


MOVB 


(R3)+, (R2)+ 


CMP 


R3, R4 


BLD 


10* 


CLRB 


<R2) 



MOV 


R5, R3 


MOVB 


<R4)+, <R5)-i- 


BNE 


7* 


MOV 


R3, R4 



Redisplay line 

CALL PAINT 

Reposition cursor 

CALL CHRPOB 



;Redisplay from delete point to right end 



Reposition cursor 



^" i n i s h e d 



9*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
( SP ) +. R4 
<SP)+, R3 
<SP)+, R2 



TSSLE ~ 


- TSX-Pl 


u 5 S i n 9 ] 


e Line E 


ICPBS - 
1 


-- Backs 


pace processing 


2 
3 
4 








5 








6 








7 








a 


006156 


010446 




9 








10 








11 








12 


006160 


013704 


0000000 


13 


006164 


105737 


OOOOOOG 


14 


006170 


001423 




15 








16 








17 








18 








19 


006172 


105037 


OOOOOOG 


20 


006176 


020427 


OOOOOOG 


21 


006202 


001402 




22 


006204 


105714 




23 


006206 


001003 




24 


006210 


004737 


011140' 


25 


006214 


000425 




26 


006216 


111400 




27 


006220 


1 1 4464 


000001 


28 


006224 


110014 




29 


006226 


004737 


010324' 


30 


006232 


004737 


010630' 


31 


006236 


000414 




32 








33 








34 








35 








36 


006240 


112400 




37 


006242 


001762 




38 


006244 


105714 




39 


006246 


001760 




40 


006250 


111444 




41 


006252 


1 1 0064 


000001 


42 


006256 


004737 


010324' 


43 


006262 


005204 




44 


006264 


004737 


010630' 


45 








46 








47 








48 


006270 


012604 




49 


006272 


000207 





MOV 


SLCX,R4 


TSTB 


SLGOLD 


BEQ 


1* 
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. BBTTL ICPBS — Backspace processing 

ProtesB a Backspace character. 

Inputs: 
Rl == Job index number. 

ICPBS: MOV R4, ~<SP) 

See if Gold key was pret>f.;-ed 

Get cursor pointer 
Was gold key pressed? 
Br if not 

Gold key was pressed. 

Exchange character under cursor with character to left of cursor. 

Clear gold-key flag 

Is cursor at left end of line? 

Br if yes 

Is cursor at right end of line? 

Br if not 

Ring bell 

And ignore command 

Get character under cursor 

Move char to left of cursor to cursor pos 

Store old char to left of old cursor pos 

Redisplay the line 

Position cursor 

Gold key was not pres&ed. 

Exchange character under cursor with character to right of cursor. 

; Get current char under the cursor 

j Br if we were at right end of line 

il5 next character end of line? 

■> Br if yes 

i Move char to right of cursor under cursor 

^Redisplay the line 

i Cursor moves right 1 character 

^Position cursor 



9*: 





CLRB 


SLGOLD 




CMP 


R4, #SLEBUF 




BEQ 


3* 




TS-|B 


(R4) 




BNE 


4* 


3*: 


CALL 


RNGBEL 




BR 


9* 


4'p: 


MOVB 


<R4),R0 




MOVB 


-(R4), 1(R4) 




MOVB 


RO, <R4) 




CALL 


PAINT 




CALL 


CHRPOS 




BR 


9* 



1*: 



MOVB 


(R4)+, RO 


BEQ 


3* 


TSTB 


(R4) 


BEQ 


3* 


MOVB 


(R4), •-<R4) 


MOVB 


RO, 1(R4) 


CALL 


PAINT 


INC 


R4 


CALL 


CHRPOS 


F' i 11 i & h e d 




MOV 


(SP)+, R4 


RETURN 





i 

c 
( 
( 
( 
i 
i 
i 
i 
i 
i 

i 

i 
i 
i 
1 
1 
i 
1 
( 



TSSLE — TSX~Plu5 Sintiile Line E MACRO V05. 04 Monday 21--Dec-S7 07:45 Paqe 63 
ICPESC - Escape procRFGing 



c 



006324 000207 



1 

2 

3 

4 

5 

6 

7 

8 

9 006274 
iO 
11 
12 
13 

14 006274 

15 006300 

16 006304 

17 006306 
IS 006312 
19 006316 
20 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

32 006326 

33 006334 

34 006340 

35 006344 

36 006350 
37 

3u 
39 
40 
41 
42 
43 
44 

45 006352 

46 006360 

47 006364 

48 006370 

49 006374 



012700 001216' 

004737 011566' 

103002 

012700 001240' 

010037 OOOOOOG 

012737 000000(5 OOOOOOG 



. fSBTTL ICPESC L&cape processing 

ProcpSE an Escape chari3cter. 

Inputs: 
R.1 -- Job index number. 
R5 = Escape character. 

ICPESC: 

Set address of routine to be called to process Ist character after 

escape. 

Fioutine for Ist char after escape 
Is this a VT52 terminal? 
Br if not 

Set routine for V7 52 
1*: MOV ROj SLCSR i Address of routine to process next char 

Set pointer to start of buffer 



MOV 


#EPCH1,R0 


CALL 


CHK52 


BCC 


1* 


MOV 


#EP52, RO 


MOV 


ROi SLCSR 


MOV 


#SLCSBF, SLCSPT 


f- i n i s h e d 




RETURN 





Received a CSI control character from a VT200 terminal. 



Inputs: 
F^l = Job index number. 
R5 = character. 



012737 
012700 
112720 
010037 
000207 



001304' OOOOOOG ICPCSI: MOV 
OOOOOOG MOV 

000133 MOVB 

OOOOOOG MOV 

RETURN 



#EPCH2, SLCSR 
#SLCSBF, RO 
#'C, <R0) + 
RO, SLCSPT 



Set address of routine to process next char 

Get pointer to start of buffer 

Store "I" as 1st char of sequence 

Set pointer into control sequence buffer 



Received a SS3 control character from a VT200 terminal. 



Inputs: 
Rl ~ viob index number. 
R5 = Character. 



012737 
012700 
1 1 2720 
010037 
000207 



001304' OOOOOOG ICPSS3: 

OOOOOOG 

000117 

OOOOOOG 



MOV 

MOV 

MOVB 

MOV 

RETURN 



#EPCH2, SLCSR 
ttSLCSBF. RO 
#'0, <R0) + 
RO. SLCSPT 



Set address of routine to process next char 

Get pointer to start of buffer 

Store "0" as Ist char of sequence 

Set pointer into control sequence buffer 
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ICPCTA "— Control -A processing 



. SBTTL ICPCTA - Control -A processing 

Controi-A — toggle overe-tri ke/insert mode 



1 

3 

4 i 

5 006376 105737 0000000 ICPCTA: TSTB SLOVER 

6 006402 001004 BNE 1* 

7 006404 112737 000001 OOOOOOG MOVB #1, SLOVER 

8 006412 000402 BR 9* 

9 006414 105037 OOOOOOG 1*: CLRB SLOVER 



i In overstrike mode now? 

j Br if yes 

i Enter overstrike mode 

iExit overstrike mode 



10 006420 000207 



9*: 



RETURN 



€ 



TSSLE ■ 
ICPCTC 



• TSX-P'lus Sintiie Line E 
— Control-C processing 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

T"J 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



0064^ 



006422 
006426 
006430 



006434 

006440 
006442 
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. SBTTL ICPCTC - Control-C processing 
Protest a control-C input character. 

Inputs: 

Rl ™ Virtual line index number. 
Rt? - Current input character. 

ICPCTC: 

If line is a . SCCAj treat control-C like control~Z 



005761 
001402 
000137 



012704 
105014 
004737 



0000000 
006666 ' 

0000000 
010324^ 



TST 
JMP 



LSCCA<R1) 

2* 

ICPCTZ 



>*: 



006446 004737 011114' 



Clear edit buffer 

MOV #SLEBUF, R4 
CLRB <R4) 
CALL PAINT 

Echo "-^C" to terminal 

CALL ECOCTL 



iDid program do a . SCCA? 

i Ur if not 

(Treat control-C like control~Z 



; Point to front of edit buffer 
i Say buffer is empty 
J Clear line on screen 



; Echo 



006452 
006460 
006462 
006464 
006472 



006500 
006506 



032737 
001407 
110500 



0000000 OOOOOOG 



042761 
004737 



OOOOOOG 
OOOOOOG 



OOOOOOG 1*: 



Send "-'^C" to log file if we avB doing logging 

Are we logging input characters? 

Br if not 

Get control-C character 

Log Control-C 

Log CR-LF 

Stop program execution and enter Kmon 

BIC #*SLINI, LSW7<R1>; Say SL must reinitialize for next line 
CALL STOP 



BIT 


#LF*IN, LOOPLG 


BEQ 


1* 


MOVB 


R5. RO 


DC ALL 


LOGCHR 


DC ALL 


LOGCR 



I 



€ 
i 
i 

C 

i 
i 
i 

4 



TSSLE — 
ICFCTR ■ 

:i 

2 

3 

4 

5 

6 

7 

8 

9 

iO 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
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- ContrDl-R pvof, eij b inp 

. SBTTL ICPCTR — Control-R proceGsincj 

ProresE control-R input character. 



006512 0.10246 
006514 010446 



006516 013702 0000000 
006522 012704 0000000 
006526 004737 010324' 



006532 010204 

006534 004737 010630' 



006540 012604 
006542 012602 
006544 000207 



.TCPCTR: MOV 
MOV 



R2. -(SP) 
R4, -<SP) 



Save current cursor position and redisplay the line 



MOV SLCX, R2 
MOV #SLEBUF- R4 
CALL PAINT 

Reposition cursor 



MOV 


R2, R4 


CALL 


CHRP 015 


F- i 7 J i £ h e d 




MOV 


<SP)+, R4 


MOV 


(SP)+, R2 


RETURN 





; Save current cursor character pointer 
jRedisplay entire line 
;Dq the display 



i Get original cursor pointer 
j Fifeposi tion cursor 



TSSLE — TSX-PiuB Sincjie Line E 
ICPCTU — Contro3."U proceissing 



1 



3 








4 








5 








6 








7 

















9 


006546 


010246 




10 


006550 


010346 




11 


006552 


010446 




12 








13 








14 








15 


006554 


105737 


OOOOOOG 


16 


006560 


001407 




17 








IS 








19 








20 


006562 


012702 


OOOOOOG 


21 


006566 


004737 


010126' 


22 


006572 


105037 


0000000 


23 


006576 


000427 




24 








25 








26 








27 








28 


006600 


013704 


OOOOOOG 


29 


006604 


020427 


OOOOOOG 


30 


006610 


001422 




31 








32 








33 








34 


006612 


012702 


OOOOOOG 


35 


006616 


012703 


OOOOOOG 


36 


006622 


1 1 2223 




37 


006624 


020204 




38 


006626 


103775 




39 


006630 


105013 




40 








41 








42 








43 


006632 


012702 


OOOOOOG 


44 


006636 


1 1 2422 




45 


006640 


001376 




46 








47 








48 








49 


006642 


012704 


OOOOOOG 


50 


006646 


004737 


010324' 


51 








52 








53 








54 


006652 


004737 


010630' 


55 








56 








57 
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. BBTTL ICPCTU -"• Contvol-U processing 
ProtesB a Control-U character. 



1 n p i) t B : 
Ri = Virtual line inrlex number. 
R5 = Current input character. 



ICPCTU: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -ii^P) 
R4, -(SP) 



See if Gold key (PFl) was pressed before controi-U 



TSTB 
BEQ 



SLGOLD 
3* 



Gold key was pressed 



; Was Gold key pressed? 
j Br if not 

Put back previously deleted text 

; Point to buffer with deleted text 
} Insert in front of cursor 
iClear gold-key flag 
j Finished 

Gold key was not pressed — Delete all characters to left of cursor 
Check to see if there is anything to delete. 



MOV 


#SLDBUF> R2 


CALL 


INSERT 


CLRB 


SLGOLD 


BR 


9* 



3*: 



MOV 
CMP 
BEG 



SLCX, R4 
R4, #SLEB UF 
9* 



;Get pointer to char under cursor 

; Is cursor at left end now? 

i Bt if yes — nothing to delete 



Move deleted characters to holding buffer 



1*: 



MOV 


#SLEBUF, R2 


MOV 


#SLDBUF, R3 


MOVE 


<R2)+, <R3)+ 


CMP 


R2, R4 


BLO 


1* 


CLRB 


(R3) 



Point to regular edit buffer 

Point to deleted-characters buffer 

Save characters being deleted 

Have we saved all? 

Br if not 

Put null at end of delete string 



Delete characters from the buffer 



2*: 



MOV 


#SLEBUF, R2 


MOVB 


(R4)+, (R2) + 


BNE 


2* 



Redisplay the line 

MOV #SLEBUF, R4 
CALL PAINT 

Reposition cursor 

CALL CHRPOS 

F i n i s h e d 



iPoint to start of string to delete 

* Move characters left over deleted ones 

; Loop till all moved 



j Redisplay entire line 



iF'osition cursor 
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ICPCTU •— - Control -U processing 



58 006656 012604 

59 006660 012603 

60 006662 012602 

61 006664 000207 



9$: 



MOV 


<SP>+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


REnURN 





TSSLE — TSX-Piuii Sinyle Line E 
ICPCTZ — Control--2 proceBsinq 



2 








3 








4 








5 








6 








7 








8 








9 


006666 


010446 




10 








11 








12 








13 


006670 


013704 


OOOOOOG 


14 


006674 


105724 




15 


006676 


001376 




16 


006700 


005304 




17 


006702 


004737 


010630' 


18 








19 








20 








21 


006706 


004737 


011114' 


22 








23 








24 








25 


006712 


112700 


OOOOOOG 


26 


006716 


004737 


011212' 


27 


006722 


1 1 2700 


0000000 


28 


006726 


004737 


011212' 


29 








30 








31 








32 


006732 


004737 


007160' 


33 








34 








35 








36 


006736 


110524 




37 


006740 


105014 




38 








39 








40 








41 


006742 


004737 


007334 ' 


42 








43 








44 








45 


006746 


012604 




46 


006750 


000207 
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. BBTTL ICPCTZ Cor.trol-Z processing 

Process Control-Z character. 

I n p u t s : 
Ri = Virtual line index number. 
Rb = Current input character. 

ICPCTZ: MOV R4, -(SP) 

Move cursor to end of line 



1*: 


MOV 


SLCX, R4 


2$: 


TSTB 


<R4) + 




BNE 


2* 




DEC 


R4 




CALL 


CHRPOS 



Echo "'"-Z" to terminal 
CALL ECOCTL 



i Get current cursor pointer 

i Search for null at end of line 

■> Loop till null hit 

i Point to null 

; Position cursor to end of line 



;Echo "-^Z" 



Echo carriage return / line feed 



MOVE 


#CR, RO 


CALL 


ECH02 


MOVE 


#LF, RO 


CALL 


ECH02 



;Get carriage return 
Echo it 
Get line feed 
Echo it 



Save input line up to <but not including) control-Z 
CALL SAVLIN ; Save input line 



Insert control-Z into buffer 



MOVE 
CLRB 



R5, (R4) + 
<R4) 



i Insert control-Z into buffer 
> Put null at end of buffer 



We have finished input line? 

CALL LINFIN 'Say we have finished input line 

Fini shed 

MOV (SP)+, R4 

RETURN 



TSSLE — TSX~Plu5 Singic? Line E MACRO 
ICPRUB — Rubout proce&Bing 



i 
2 








3 








4 








5 


006752 


010246 




6 








7 








S 








9 


006754 


105737 


000000(5 


10 


006760 


001407 




11 








12 








13 








14 


006762 


012702 


0000000 


15 


006766 


004737 


010126' 


16 


006772 


105037 


0000000 


17 


006776 


000411 




IS 








19 








20 








21 


007000 


013702 


0000000 


22 


007004 


020227 


0000000 


23 


007010 


101404 




24 








25 








26 








27 


007012 


1 1 4237 


0000000 


28 


007016 


004737 


007442' 


29 








30 








31 








32 


007022 


012602 




33 


007024 


000207 
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. SBTTL ICPRUB — Rubout- processing 
; Process a rubout chsrac tt^r. 
ICPRUB: MOV R2, -<BP) 

See if Gold key <PF1) was pressed before rubout. 



TSTB 
BEG 



SLGOLD 
1* 



Gold key mas pressed 



MOV 


#SLCBUF, R2 


CALL 


INSERT 


CLRB 


SLGOLD 


BR 


9* 



Gold key was not pressed 



1«: 



MOV 


SLCX,R2 


CMP 


R2, #SLEBUF 


BLOS 


9* 



iWas Gold key pressed? 
; Br if not 

Put back previously deleted character 

i Point to deleted-charac ter buffer 

i Insert in 1 ij^e 

i Clear the Gold-key flag 

; Finished 

■ Delete character to left of cursor 

i Get pointer to character under cursor 
; Is cursor at left end of line? 
; Br if yes 



Save character beinq deleted and then delete it 



2*: 



9^: 



MOVB 


-(R2),SLCBUF 


CALL 


DELLFT 


Fini&hed 




MOV 


<SP)+, R2 


RETURN 





; Save character being deleted 

; Delete character to left of cursor 



TSBLE — TSX-Plus Sinslo Line E MACRO V05. 04 Monday 21-Dec"S7 07: 4S Page 70 
ICPNUL — Null procesKJng 



i 
2 
3 

5 007026 000207 






. SBTTL ICPNUL — - Null praceBsing 
i ProcesB a null character 
ICPNUL: RETURN 



TSSLE — TSX-Pius Sintile Line E MACRO V05. 04 
INWAIT " Wait for input characters 
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3 

4 

5 

6 

7 

8 007030 

9 
10 
11 

13 007030 

14 007036 

15 007044 
16 

17 
18 

19 007050 

20 007056 

21 007064 

22 007072 
007076 
007104 
007110 
007112 

27 007120 

28 007122 

29 007130 

30 007136 

31 007142 

32 007146 
33 

34 

35 

36 007150 

37 

30 

39 

40 007156 



23 
24 
25 
26 



042761 
052761 
005237 



042761 
042761 
004737 

005761 
001017 
032761 
00 1 006 
013761 
013761 
012700 
004737 
000751 



0000000 
OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



000207 



. SBTTL INWAIT — Wait for input characters 

INWAIT is called to wait For input characters. 

Inputs: 
Rl = Job index number 

INWAIT: 

If we previously suspended input from silo buffer to prevent 
input buffer overrun* reenafale input now. 

BIC #*XSTOP, LSW6<R1 ); Reenable input from silo buffer 

BIS #*NDICP. LSW10<R1 ); Say line needs input character servicing 

INC NEDCDI .; Say input character processing needed 

Suspend job until activation character is received. 

1$: OCALL SIGWAT .: Signal virtual line wait condition 

Allow input to be accepted for line 
No longer in startup command file 
2*: CALL CHKABT i See if job has been aborted 

*-K- Disable «•* 

Got any activation chars yet? 
Br if yes 

Is program being run non-interactively? 
Br if yes 

i Reset high-priority hit limit for job 
J Reset interactive CPU time limit 
4*: MOV #S*INWT. RO i i : Qet wai ting-f or-input state 

Suspend job and wait for activation char 
Go check again 

There are input characters available 

if*: ENABL ; *-*• Enable «•« 

F i n i E h e d 

RETURN 



OCALL 


SIGWAT .: 


BIC 


#«NOIN, LSW3<R1) ; 


BIC 


#*SUCF, LSW9<R1) i 


CALL 


CHKABT i 


DISABL 




rsT 


LACTIV(Rl) i 


BNE 


3* ; 


BIT 


#«NOINT, LSW7<R1); 


BNE 


4* •> 


MOV 


VINTIO, LHIPCT(Rl) 


MOV 


VQUAN1>LITIME<R1) 


MOV 


#S*INWT, RO i 


CALL 


QHDSPN i 


BR 


2* ; 



TSSLE — TSX-Plus Sin,qlf;' Line E MACRO 
SAVLIN ~- Save current input line 



i 
2 








3 








4 

5 








6 


007160 


010246 




7 


007162 


010346 




8 








9 








10 








11 


007164 


012702 


OOOOOOG 


12 


007170 


105712 




13 


007172 


001450 




14 








15 








16 








17 


007174 


013703 


OOOOOOG 


18 


007200 


020327 


ooooooe 


19 


007204 


103402 




20 


007206 


012703 


OOOOOOG 


21 


007212 


121223 




22 


007214 


001003 




23 


007216 


105722 




24 


007220 


00 1 367 




25 


007222 


000434 




26 








27 








28 








29 








30 


007224 


105722 




31 


007226 


00 1 376 




32 


007230 


013703 


OOOOOOG 


33 


007234 


020327 


OOOOOOG 


34 


007240 


101002 




35 


007242 


012703 


OOOOOOG 


36 


007246 


1 1 4243 




37 


007250 


020227 


OOOOOOG 


38 


007254 


101367 




39 


007256 


010337 


OOOOOOG 


40 








41 








42 








43 


007262 


020327 


OOOOOOG 


44 


007266 


101002 




45 


007270 


012703 


OOOOOOG 


46 


007274 


105743 




47 


007276 


001402 




48 


007300 


105013 




49 


007302 


000767 




50 








51 








52 








53 


007304 


005037 


OOOOOOG 


54 


007310 


005037 


OOOOOOG 


55 
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SBTTL SAVLIN — Save current input line 



SAVLIN is called to save the current input line as the "last line" 
which can be recalled later by use of the up-arrow key. 



SAVLIN: MOV 
MOV 



R2> -<SP) 
R3, -<SP) 



if line is null* there i& nothing to save 



MOV #SLEBUF, R2 
TSTB (R2) 
BEQ 9* 



; Point to current line buffer 

;ls current line null? 

; Br if yes — Don't save a null line 



If current line matches last line, don't push saved lines 



4*: 



6$: 



MOV 


SLSPTR, R3 


CMP 


R3, ttSLLEND 


BLO 


6* 


MOV 


#SLLBUF, R3 


CMPB 


(R2), <R3>+ 


BNE 


5* 


TSTB 


<R2) + 


BNE 


4* 


BR 


9* 



Point to most recently saved line 

Gone past end of save buffer? 

Br if not 

Wrap to top of buffer 

Does next char in cur line match saved line? 

Br if not 

Have we reached end of current line? 

Loop if not 

Line is same as last saved* don't save again 



We want to save the current line in the save buffer. 
Copy to save buffer above previous saved line. 



5*: 


TSTB 


<R2) + 




BNE 


5* 




MOV 


SLSPTR, R3 


8«: 


CMP 


R3, #SLLBUF 




BHI 


10* 




MOV 


#SLLEND.> R3 


10«: 


MOVB 


--(R2), -(R3) 




CMP 


R2, #SLEBUF 




BHI 


8* 




MOV 


R3, SLSPTR 


; Now 


null out 


the remaind 


11*: 


CMP 


R3, #SLLBUF 




BHI 


12* 




MOV 


#SLLEND, R3 


12*: 


TSTB 


~<R3) 




BEQ 


13* 




CLRB 


(R3) 




BR 


11* 


; Refvt 


^ t recall 


cycle 


13*: 


CLR 


SLCYCl 




CLR 


SLCYC2 



i Find null at end of current command 

Point to start of last saved line 

Gone past top of save buffer? 

Br if not 

Wrap around to end of save buffer 

Copy new line into save buffer 

Copied all of new line? 

Br if not 

Save pointer to start of most recent line 



of any command we may have partially covered 

iHit top of save buffer? 

i Br if not 

; Wrap around to end of save buffer 

^Reached null that terminates prev line? 

i Br if yes 

;Wull out remainder of saved line 



Say no recall cycle active 



56 

57 



Set recall pointer to recall last saved line 
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GAVLIN — Save current input line 

58 007314 013737 0000000 OOOOOOG 9*: MOV SLSPTR, SLLPTR ; Set ptr to next command to recall 

59 007322 105037 OOOOOOG CLRB SLDOWN i Say down-arrou; was not last command 

60 ; 

61 ; F i (I :i s li e d 

62 i 

63 007326 012603 MOV (SP)+, R3 

64 007330 012602 MOV (SP)+, R2 

65 007332 000207 RETURN 



TSSLE — 
LINFIN - 

1 
2 
3 
4 

» 

7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2?} 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



TSX-Plus Siriijlc Line E 
• Terminate input line 
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. SBTTL LINFIN — "Terminate input line 

LINFIN iz called uhen an input line is completely acquired. 

1 n p u t e ; 
Rl = Job index number. 



007334 010246 
007336 010346 



LINFIN; MOV 
MOV 



R3, -<£JP) 



007340 

007346 
007350 
007354 



007360 
007366 
007370 
007374 
007376 
007400 
007406 



007410 



026127 OOOOOOG 0000000 

103004 

012700 OOOOOOG 

004737 0000000 



032737 
00 1 4 1 
012702 
1 1 2200 
00 1 404 



000772 



OOOOOOG OOOOOOG 3*: 

OOOOOOG 

4*: 



Make sure job priority is not higher than normal <non~single character 
activation) input complete. 

CMP LSTATE<R1 .), #S*TTFN; Is prio higher than normal TT input? 

BHIS 3* i Br i-F not 

MOV #S*TTFNj RO J Lower priority of this job 

CALL ENQTL ; Requeue at tail of S*TTFN state queue 

If terminal logging is wanted, log the line now 

Are we logging input characters? 

Br if not 

Point to line buffer 

Get next character from the line 

Br when null hit 

Log the character 



BIT 


#LF*IN, LOGFLG 


BEG 


5* 


MOV 


#SLEBUF, R2 


MOVB 


(R2)+, RO 


BEQ 


5* 


OCALL 


LOGCHR 


BR 


4* 



007416 113761 OOOOOOG OOOOOOG 



Set up pointer to character string to be passed to program 
OOOOOOG OOOOOOG 5*: MOV #SLEBUF, SLOP"! R J Set pointer for GTSLCH routine 

Set cursor position at end of line 

MOVB SLECOL, LC0L<R1 ) i Remember cursor position at end of line 
Clear field width activation and field width limit values 



007424 
007430 



007434 
007436 
007440 



005061 
005061 



012603 
012602 
000207 



OOOOOOG 
OOOOOOG 



CL..R 
CLR 

F i n i fc bed 



MOV 
MOV 
RETURN 



LFWLIM<RJ ) 
LAFSIZ<R1> 



<SP)+, R3 
(SP)+> R2 



; No field width limit now 

i No field width activation now 



TSSLE — TSX~Plus Sincjle Line E MACRO 
DELEFT — Delete character to left of 
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cursor 



3 








4 








5 








6 








7 








8 








9 








io 








11 








12 








13 


007442 


010346 




14 


007444 


010446 




15 








16 








17 








IB 








19 


007446 


013704 


0000000 


20 


007452 


020427 


OOOOOOG 


21 


007456 


00 141 3 




22 








23 








24 








25 


007460 


005304 




26 


007462 


111437 


0000000 


27 


007466 


010403 




28 


007470 


1 1 6323 


000001 


29 


007474 


00137^> 




30 








31 








32 








33 


007476 


004737 


010324' 


34 








35 








36 








37 


007502 


004737 


010630' 


38 








39 








40 








41 


007506 


012604 




42 


007510 


012603 




43 


007512 


000207 





SOirL DELEFT 



Delete character to left of cursor 



DELEFT is called to delete the character to the left of the current 
cursor position and redisplay any characters to the right of the 
deleted character. 

The cursor is left positioned on the character that was to the right 
of the deleted character. 



Infjuts: 
Si.CX = Pointer to character under the cursor. 
SLCCOL = Column number where cursor is positioned. 



DELEFT: MOV 
MC;JV 



R3, ~<'ap) 

R4. -<SP) 



MOV 


SLCX, R4 


CMP 


R4, #SLEBUF 


BEO 


9* 



1$: 



If cursor is already at left-most character then there is nothing 

to do. 

; Get pointer to character under cursor 

.: Is cursor at left end? 

; Br if at left-mode char — Nothing to delete 

Remove deleted character from buffer 

i Point to the deleted character 
; Save deleted character 

i Move chars left over deleted char 



DEC 


R4 


MOVE 


<R4), SLCBUF 


MOV 


R4, R3 


MOVE 


1 (R3). (R3)+ 


BNE 


1* 



i Redisplay any characters to the right of the deleted character 

CALL PAINT ; Redisplay chars to left of deleted char 

i 
i Reposition cursor to character that was to right of one deleted. 

CALL CHRPOS ; Reposition cursor 

i 

t Finis h e d 

> 

9^^: MOV (SP)+, R4 

MOV (SP)+.. R3 

RETURN 



i 
i 



TSSLE — TSX~Plu!i Sin<^:!. 
b'LMVUP — Move up to pr 
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t'vioijs stored command 



1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


007514 


010446 




13 








14 








15 








16 


007516 


010504 




17 


007520 


020427 


OOOOOOG 


18 


007524 


103402 




19 


007526 


012704 


0000000 


20 


007532 


105724 




21 


007534 


001371 




22 








23 








24 








25 


007536 


020427 


0000000 


26 


007542 


103402 




27 


007544 


012704 


OOOOOOG 


28 


007550 


0204013 




29 


007552 


001411 




30 


007554 


105724 




31 


007556 


001767 




32 








33 








34 








35 


007560 


020427 


OOOOOOG 


36 


007564 


101002 




37 


007566 


012704 


OOOOOOQ 


38 


007572 


005304 




39 








40 








41 








42 


007574 


01 040 D 




43 


007576 


012604 




44 


007600 


000207 





i 

c 



. SBTTL SLMVUP 



M{>ve up to previous stored command 



This routine returns a pointer to the previous saved command moving 
in an up-arrou? direction. 

Input s : 
R5 ~ Pointer to currt-nt command. 

Outputs: 
R5 = Pointer to previous command. 

SLMVUP: MOV R4.. -(SP) 

SIfip up to the null at the end of the current command 



1*: 



2^: 



MOV 


R5, R4 


CMP 


R4. #SLLEND 


BLO 


2* 


MOV 


#SLLBUF, R4 


TSTB 


<R4) + 


BNE 


1* 



; Hit end of buffer?" 

i Bv if not 

j Wrap around to the top 

; Reached null at end of saved command? 

; Br if not 



Now skip over nulls at the end of the command 



3*: 



4*: 



CMP 


R4. #SLLEi\ID 


BLD 


4* 


MOV 


#SLLBUF, R4 


CMP 


R4, R5 


BEQ 


9* 


TSTB 


<R4) + 


BEG 


3* 



.Hit end of buffer? 

j Br if not 

i Wrap around to the top 

; Wrapped around to current cmd? 

; Br if nothing to recall I 

i More nulls to skip? 

i Br if so 



Point to 1st character of command 



5*; 



6*: 



CMP 

BHI 
MOV 
DEC 

F i n i s h e d 



9*: 



MOV 
MOV 
RETURN 



R4, #SL LB UF 
6* 

#SLLEND, R4 
R4 



R4, R5 
<SP)+, R4 



; At top of buffer nou7' 

i Br if not 

i Wrap around to bottom 

i Point to 1st char of next command 



; Return pointer in R5 



5LMVDN 



' — 


- TSX-Pi 


us S i n {J i 


e Line E 


>N - 

1 
2 
3 


— Move 


d uj n to 


p revious 








4 








5 








6 








7 








8 








9 








10 








11 








12 


007602 


01044v'b 




13 








14 








15 








16 


007604 


010504 




17 


007606 


020427 


OOOOOOG 


IS 


007612 


101002 




19 


007614 


012704 


0000000 


20 


007620 


105744 




21 


007622 


001003 




22 


007624 


020405 




23 


007626 


001367 




24 


007630 


000416 




25 








26 








27 








28 


007632 


020427 


0000000 


29 


007636 


101002 




30 


007640 


012704 


ooooooe 


31 


007644 


105744 




32 


007646 


001371 




33 








34 








35 








36 


007650 


005204 




37 


007652 


020427 


OOOOOOQ 


38 


007656 


103402 




39 


007660 


012704 


OOOOOOG 


40 








41 








42 








43 


007664 


010405 




44 


007666 


012604 




45 


007670 


000207 
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stored command 

gigj-fL SLMVDN • — Move down to previous stored command 

This routine returns a pointer to the previous saved command moving 
in a down-arrow direction. 

I TT p u t s ; 
R5 ~ f^ointer to current command. 

Output b: 
R5 = Pointer to previous command. 

SL M VDN : MOV R 4 , - < SP ) 

Skip over nulls in front of current command 



1*: CMP R4, #SLLBUF ; At top of buffer now? 

Br if not 

Wrap around to the bottom 
Is this character null? 
Br if not 

Wrapped around to beginning? 
Loop if not 
Nothing to recall 

Mow skip back to null at front of the prev command 



?^: 



MOV 


R5, R4 


CMP 


R4, #SLLBUF 


BHI 


2* 


MOV 


#SLLEWD, R4 


TSTB 


■"(R4) 


BME 


3$ 


CMP 


R4.. R5 


BNE 


1* 


BR 


9* 



3*: 



4*: 



CMP 


R4, #SLLBUF 


BHI 


4* 


MOV 


#SLLEND, R4 


TSTB 


-<R4) 


BNE 


3* 



; At top of buffer now? 
; Br if not 

; Wrap around to the bottom 
; Is this character null? 
; Loop i f not 



Now move forward to the 1st character of next command 



5*: 



INC 
CMP 
BLO 
MOV 

Finished 



6*: 
9$: 



MOV 
MOV 
RETURN 



R4 

R4, #SLLEND 

6* 

#SLLBUF> R4 



R4, R5 
(SP)+, R4 



i Point to next char 
> Past end of buffer? 
J Br if not 
i Wrap around to the top 



; Return pointer in R5 



i 
€ 



TSSLE — TSX-Plus Sinf^le Line E 
RSTLIM — RestoTM- a ful.l line 
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Restore a full line 



3 








4 








5 








6 








7 








8 


007672 


010246 




9 


007674 


01034v'^ 




10 


007676 


010446 




11 


007700 


010546 




12 


007702 


010502 




13 


007704 


010504 




14 








15 








16 








17 


007706 


105712 




18 


007710 


001003 




19 


007712 


004737 


011140' 


20 

21 
22 


007716 


000441 










23 








24 


007720 


005005 




25 


007722 


004737 


010034' 


26 


007726 


001402 




27 


007730 


005205 




28 


007732 


000773 




29 








30 








31 








32 


007734 


004737 


010510' 


33 


007740 


020500 




34 


007742 


101403 




35 


007744 


004737 


011140' 


36 


007750 


000424 




37 








38 








39 








40 


007752 


012703 


OOOOOOG 


41 


007756 


010402 




42 


007760 


004737 


010034' 


43 


007764 


110023 




44 


007766 


001374 




45 








46 








47 








48 


007770 


012704 


000000(5 


49 


007774 


004737 


010324' 


50 








51 








52 








53 


010000 


016102 


OOOOOOG 


54 


010004 


00 1 406 




55 


010006 


020502 




56 


010010 


103404 




57 


010012 


004737 


007160' 



, SBTTL R STL IN 
Ret^tort? a full line. 



Inputs: 
R5 ~ Pointer to asciz strinq to be restored. 



R STL IN: 


MOV 


R2, -(SP) 




MfJV 


R3. -(SP) 




NOV 


R4, -(SP) 




NOV 


R5, -(SP) 




MOV 


R5, R2 




NOV 


R5, R4 



i Save pointer to line start 



See if there is anitthinq to restore 



TSTB 


(R2) 


BNE 


1* 


CALL 


RNGBEI. 


BR 


9* 



i Do we have a saved command? 

.: Br if yes 

jRing bell if not 



Count number of characters in saved line 



1$: 
5*: 



CLR 


R5 


CALL 


RSTCHH 


BE(3 


64 


INC 


R5 


BR 


5* 



Sec if saved line luill fit 



6'|5: 



CALL 


MAXLEN 


CMP 


R5, RO 


BLOS 


4* 


CALL 


RN(5BEL 


BR 


9* 



iCount # chars in line 

; Get next char from line buffer 

J Br if yes 

; Count # chars in saved line 

j Keep searching for the end of the line 



.: Determine max alloiued line length 

;Will saved line fitT' 

> Br if yes 

i Ring bell if not 



Move saved line to edit buffer 



4$: 
215: 



MOV 


#SLEBUF, R3 


MOV 


R4, R2 


CALL 


RSTCHR 


MOVE 


RO, (R3) + 


BNE 


2* 



Diiiplay the line 

MOV #SLEBUF, R4 
CALL PAINT 



.: Point to edit buffer 
.; Point to start of saved line 
i Get next char to be restored 
i Move saved char to edit buffer 
; Loop until null moved 



i Display entire line 



See if we should activate due to field width being filled 

NOV LAFSIZ(Rl), R2 ; Was field width activation specified? 

BEO 9* i Br if not 

CNP R5, R2 J Does saved line = field width? 

BLO 9$ ; Br if not 

CALL SAVLIN ; Save the complete line 



TSSLE — 


- TSX-Piuu Sinyle Line 


f<STLIN - 


- Restore a Full line 


58 


010016 


004737 00733 


59 






60 






61 






62 


010022 


01 260 D 


63 


010024 


012604 


64 


010026 


012603 


65 


010030 


012602 


66 


010032 


000207 
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CALL 

; F X n i s h e d 

> 

9*: MOV 
MOV 
MOV 
MOV 
RBJURH 



LINFIN 



<SP)+. R5 
( SP ) +, R4 
(SP)+, r:.j 
< SP ) +, R2 



; Input line is complete 



TSSLE -- 
R STL IN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

XX 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 
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• Restore a fM.1.1 line 



010034 



010034 112200 



010036 020227 000000« 

010042 001002 

010044 012702 OOOOOOG 



010050 005700 
010052 000207 



I 
f 



Oet the next character' from a saved line and handle buffer wraparound. 

1 n p u t <j : 
R2 - Points to next character to get. 

Output 5: 
FJO = Character we got. 

R2 = Pointer to next character to get. 
Condition codes set for value returned in RO. 

RSTCHR: 

Get the character we want to return 

MOVE (R2)+, RO iOet character to be returned 

See if we are gettinp from within SLLBUF and need to worry about wrap. 

;Are we at end of SLLBUF? 

.: Br i f not 

; Wrap around to top of SLLBUF 



?*: 



CMP 


R2, #Sl-LEND 


BNE 


9* 


MOV 


#SLLBUF, R2 


F i J 1 i B h f? d 




rsi 


RO 


RETURN 





; Set sign for value in RO 
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.1 

2 








3 








4 








5 








& 








7 

















9 


010054 


010246 




10 


010056 


010446 




11 








12 








13 








14 


010060 


013704 


OOOOOOG 


15 


010064 


105714 




16 


010066 


00 1 006 




17 


010070 


012702 


0000000 


18 


010074 


110012 




19 


010076 


004737 


010126' 


20 


010102 


000406 




21 








22 








23 








24 








25 


010104 


110014 




26 


010106 


004737 


010324' 


27 








28 








29 








30 


010112 


005204 




31 


010114 


004737 


010630' 


32 








33 








34 








35 


010120 


012604 




36 


010122 


012602 




37 


010124 


000207 





, SBTTL OSTRIK -- ■• Dverstr i k e 

Replace the character under the cursor with a new ( overstri k ing ) character. 

Inputs; 
RO = New < overstri k inp ) character. 
Rl =- Job index number. 



OSTRIK: MOV 
MOV 



R2, -iSP) 
R4, -(C^'P) 



If we are positioned to the end of the line^ do an insert 



j Get pointer to char under cursor 

; At end of line now? 

j Br if not 

J Point to char buffer 

J Store char into insert buffer 

; Insert the character 



We are positioned in the middle of the line. 
f?eplace the character being overstruck. 



MOV 


SLCX,R4 


TSTB 


(R4) 


BNE 


1* 


MOV 


#SLCBUF, R2 


MOVB 


RO, <R2) 


CALL 


INSERT 


BR 


9* 



1$: 



MOVB 
CALL 



RO, (R4) 
PAINT 



Repcjsition the cursor 



INC 
CALL 

F' i n i & h e d 



9«; 



MOV 
MOV 
RETURN 



R4 
CHRPOS 



<SP)+, R4 
(SP)+, R2 



j Replace char being overstruck 
jRedisplay the line 



^Position past overstrike 
ji Reposition cursor 



TSSLE • 
INSERT 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 

14 

15 
1 cj 
17 
IS 

19 

20 

21 

22 

23 

24 
25 
26 
27 

28 

29 
30 
31 
32 

33 

34 

35 

36 
37 
38 
T9 
40 

41 

42 

43 

44 

45 

46 
47 
48 
49 

50 

51 
52 
53 
54 
55 

56 

57 



10126 
10130 
10132 
10134 



10136 
10140 
10142 
10144 
10146 
10150 



10152 
10156 



10160 
10164 
10166 
10170 



10172 
10174 
10200 
10202 
10206 
10210 



10212 
10216 



010246 
010346 
010446 
010546 



010203 
105723 
00 1 376 
160203 
005303 
003003 



013705 
010504 
105724 

00 1 376 



01040;j 
162705 
060305 
004737 
020500 
101403 



004737 
00043!> 



010405 
06030;i 



f 
f 



SBTTL INSERT 



iui-ort string into edit buffer 



INSERT is called to in5ert an ascii text string into the edit string. 
The text is inserted immediately to the left of the cursor position. 
After the insertion is made., the line is redisplayed and the cursor 
is left pointing to the right of the inserted string. 



I n p i.i t s ; 
Rl ■■- viob index number. 
R2 =•- Pointer to asciz string to be inserted. 



INSERT: 



MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3. -(SP) 
R4, -(SP) 
R5, -<SP) 



Count number of characters in string being inserted 



1*: 



MOV 


R2, R3 


TSTB 


<R3) + 


BNE 


1$ 


SUB 


R2, R3 


DEC 


R3 


HOT 


7$ 



.: Oet pointer to insert string 

j Search for null at end of string 

.; Loop till null hit 

; Oet length of string 

; Don't count null at end 

i Br if there are some characters to insert 



There are no characters in string being inserted 



004737 011140' 
000455 



CALL 
BR 



RNGBEL 
9* 



.1 R i n g the bell 
> We are finished 



OOOOOOG 



0000010 



010510' 



Locate the end of the current edit line 

7$: MOV SLCX, R5 i Get pointer to character under cursor 

MOV R5>R4 

2*: TSTB (R4)+ ; Search for null at end of string 

BNE 2* 

See if there is enough free space remaining in edit buffer to do 
thr insertion. 

; Get pointer past null 

iCalc number of characters in current string 

;Add # characters in insert string 

; Compute maximum allouied line length 

i Compare line with insert with max allowed 

j Br if ok 

There is not enough space for the insertion 



MOV 


R4. R5 


SUB 


#SLEBUF+1, R5 


ADD 


R3, R5 


CALL 


MAXLEN 


CMP 


R5, RO 


BLOS 


3* 



011140 



CALL 
BR 



RNGBEL 
9* 



Ring bell 



■fhere is enough space to do the insertion. 

Move characters over to make room for the insertion. 



3*: 



MOV 
ADD 



R4, R5 
R3. R5 



; Pointer past null at end of current string 
i Add number of characters to be inserted 
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5B 

59 

60 
6.1. 
62 
63 

64 

65 

66 
67 
68 
69 

70 
7i 
72 
73 

74 

75 
76 
77 
78 
79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 
90 
91 
92 

93 

94 

95 

96 

97 



10226 
10232 



10236 
1 0240 



10246 
10250 



10254 
10260 
10262 
10266 
10270 
10272 
10276 
10300 
10302 
10306 



10312 
10314 
10316 
10320 
10322 



114445 

020437 
101374 



010405 
112225 
077302 



0000000 



10242 004737 010324' 



010504 
004737 



016102 
001414 
013703 
105723 
001376 
162703 
020302 
103404 
004737 
004737 



012605 
012604 
012603 
012602 
000207 



010630' 



0000000 
0000000 

00000 10 



007160' 
007334 ' 



4$: MOVE -(R4),~(R5) 

CMP R4, SLCX 

BHl 4$ 

; In Bert the string 



5$: 


MOV 


R4, R5 


6*: 


MOVB 


(R2)+, (R5) ! 




SOB 


R3, 6* 



; Move characters to right 
i Have we moved enough? 
.; Br if not 



; Get pointer to insertion point 
; Insert the strinq 



Redisplay the line 
CALL PAINT 
RepoE-ition the curEor 



MOV 
CALL 



R5, R4 
CHRP OS 



^Redisplay the edit line 



> Get desired cursor position 
; Reposition cursor 



8«; 



Count total number of characters in the line and see if we should 

activate due to field-width activation. 



Is field-width activation in effect? 

Or if not 

Point to cursor position 

Is there another character in buffer? 

Loop till null hit 

Calc total number of characters in string 

Have we reached activation size yet? 

Qr if not 

Save input line 

Completed input line 



9*: 



MOV 


LAFSIZ<R1), R2 


BEG 


9* 


MOV 


SLCX, R3 


TSTB 


<R3) + 


BNE 


8* 


SUB 


#SLE3UF+1, R3 


CMP 


R3, R2 


BLO 


9* 


CALL 


SAVLIN 


CALL 


LINFIN 


F i n i 6 h e d 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


( SP ) +, R2 


RETURN 
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SBTTL PAINT — Redisplay current edit line 



4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


010324 


010246 




15 


010326 


010346 




16 


010330 


010446 




17 


010332 


010546 




IS 








19 








20 








21 


010334 


004737 


010552-' 


22 


010340 


004737 


010652' 


23 








24 








25 








26 


010344 


1 1 2400 




27 


010346 


00142/ 




28 


010350 


120027 


0000000 


29 


010354 


OOlOiti 




30 








31 








32 








33 








34 


010356 


010300 




35 


010360 


062703 


000010 


36 


010364 


042703 


000007 


37 


010370 


010302 




38 


010372 


160002 




39 


010374 


1 1 2700 


000040 


40 


010400 


004737 


011174' 


41 


010404 


077203 




42 


010406 


000756 




43 








44 








45 








46 


010410 


004737 


011174' 


47 


010414 


120027 


000037 


48 


010420 


101751 




49 


010422 


005203 




50 


010424 


000747 




51 








52 








53 








54 








55 


010426 


005304 




56 


010430 


010437 


0000000 


57 


010434 


013702 


0000000 



PAIN) is called to redisplay all or a portion of the current edit line. 
The cursor is left pointing beyond the right end of the line. 

1 n f ) 1.1 1 B : 
Rl •= Job index number. 
R4 = Pointer to character where redisplay is to begin. 



Outputti: 
Si.CX 



Pointer to null at end of edit string. 



SLCCOL =: Cursor position at end of line. 



PAINT; 



MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R4, -<SP) 
R5, -(3P) 



Position cursor to point where display is to begin 



CALL 
CALL 



COLCLC 
CURPOS 



j Calculate position where redisplay begins 
; Position cursor there <R3 has column number) 



Begin loop to display eoch character. 



MOVB 


(R4)+, RO 


BEQ 


5* 


CMPB 


RO, #TAB 


BNE 


3* 



Get next character to display 
Br if hit end of string 
Is this a tab? 
Br if not tab 



Character being displayed is a tab. 
Convert to spaces. 



2*: 



MOV 


R3, RO 


ADD 


#8. , R3 


BIC 


#7, R3 


MOV 


R3, R2 


SUB 


RO, R2 


MOVB 


#' , RO 


CALL 


ECHO 


SOB 


R2, 2* 


BR 


1* 



; Save position at start of tab field 

J Calculate position beyond end of tab field 



Oet # spaces needed to simulate the tab 

Oet a space character 

Send the space 

Send as many as needed for tab 



Character is not a tab 



3$: 



; Send the character to the terminal 

i Is this a printing character? 

; Br if not 

; Advance column number 



We finished displaying all characters in buffer. 

See if we need to display blanks to wipe out deleted characters at end. 



CALL 


ECHO 


CMPB 


RO, #37 


BLOS 


1* 


INC 


R3 


BR 


1* 



5*: 



DEC 
MOV 
MOV 



R4 

R4, SLCX 

SLECOL, R2 



; Point back to null at end of line 

i Save index where we want to leave cursor 

j Get old end-of-line column number 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 



010440 160302 
010442 003411 



010444 010204 

010446 116100 OOOOOOG 

010452 004737 011174' 

010456 077203 



010460 004737 010764^ 
010464 077403 



010466 010337 OOOOOOG 
010472 010337 OOOOOOG 



010476 01260;:> 

010500 012604 

010502 012603 

010504 012602 

010506 000207 



SUB 



R3, R2 
7% 



; Do we need to erase any old chars? 
j Br if not 



Display blanks to BvasB any characters that used to be at end of line 

; Save number of columns being erased 
; Get rubout-f i 1 ler character for this line 
6$: CALL ECHO i Send the space 

; Loop for as many as needed 



MOV 


R2, R4 


MOVB 


LRBFIL(R1)>R0 


CALL 


ECHO 


SOB 


R2, 6* 



Now leave cursor positioned at end of line 



Bi5; 



CALL 
SOB 



CSRLFT 
R4. 8* 



; Move cursor 1 column left 

; Move back over erased characters 



Save information about column positions. 



7%: 



?*: 



MOV 


R3, SLCCOL 


MOV 


R3, SLECOL 


F i n :i f. h B d 




MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





; Cursor position 

i End~of-l ine column 



TSSLE - 
MAXLEN 
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3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



010510 010246 



010512 012700 0000000 



010516 016102 OOOOOOG 

010522 001403 

010524 020002 

010526 101401 

010530 010200 



010532 016102 OOOOOOG 

010536 001403 

010540 020002 

010542 101401 

010544 010200 



010546 012602 
010550 000207 



. SBTTL MAXLEN — Compute maximum allowed line length 

MAXLEN is called to compute the maximum length allowed for an 
edit line. It takes into consideration the following constraints: 

1. Size of edit line hufPt-r. 

2. Field width 1 i nri t size. 

3. Field with activation size. 

I n p u t B ; 
Rl = Job index number. 

Outputs: 
RO =• Mr3ximum line lenyth. 

MAXLEN: MOV R2, -(SP) 

Start with edit buffer length. 

MOV #SLMXLN. RO ; Length of edit buffer 

See if a field width iimit is in effect. 

Is a field width limit in effect? 

Br if not 

Is current limit smaller? 

Br if yes 

Use field width limit 

See if field width activation is in effect. 



MOV 


LFWLIM(Rl).. Rr 


BEQ 


1* 


CMP 


RO, R2 


BLOS 


1* 


MOV 


R2, RO 



1*: MOV 
BE<3 
CMP 
BLOS 
MOV 

Finished 

i: MOV 

RETURN 



LAFSIZ(Rl), R2 

2* 

RO, R2 

2* 

R2, RO 



(SP)+, R2 



Is field width activation in effect? 

Br if not 

Is current limit smaller? 

Br if yes 

Use field activation width as limit 



TSSLE " 
CDLCLC 






1 1 a t £• c o 1 
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t 
2 
3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



3BTTL CQLCLC 



Calculate column position of a character 



010552 010246 



010554 
010560 



010564 
010566 



010570 

010572 
010576 



010600 
010604 
010610 



012702 
013703 



020204 
103016 



OOOOOOG 
OOOOOOG 



120027 
00 1001) 



062703 
042703 
000765 



OOOOOOG 



000010 
000007 



010612 
010616 
010620 
010622 



010624 
010626 



120027 000037 
101762 
005203 
000760 



012602 
000207 



COLCLC is called to compute the display column position of a specified 
character in the edit buffer. 

.1 n f « 1.1 1 B : 
R4 ~ Pointer to character whose position is to be computed. 

Outputs: 
R3 = Column position of the character. 

COLCLC: MOV R2, -(SP) 

.; Initialize character info 



MOV #SLEBUF, R2 
MOV SLSCDL, R3 



; Get pointer to start of edit buffer 
; Get col # of left-most character 



Loop through all characters counting columns 



1«: 



CMP 
BHIS 



R2. R4 
4* 



Get next character to check 



MOVB 


(R2)+, RO 


CMPB 


RO, #TAB 


BNE 


2* 



; Have \ue reached character of interest? 

; Br if yes 



Get next character 
Is character a tab? 
Br if not 



Character is tab. Advance to next tab stop. 



ADD 


#8. , R3 


BIC 


#7, R3 


BR 


1* 



Advance to next tab stop 



Character is not tab. 

See if it is a printing character. 



2$: 



4*: 



CMPB 


RO, #37 


BLOS 


1* 


INC 


R3 


BR 


1* 


F i 1 ) 3 shed 




MOV 


<sp)-+-,r;i 


RETURN 





Is this a printing or control character? 

Br if control character 

Count one column for the character 

Go process more characters 



1 vDOi-fC^ 

CHRPOS 
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1 
2 

r> 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 



1 0630 1 0346 



010632 004737 010552" 



010636 004737 010652' 



010642 01 4 37 0000000 



010646 012603 
010650 000207 



. BBTTL CHRPOS - — Move cursor to a specific character 

CHRPOS is called to position the cursor to a specified character in the 
edit buffer. 

1 n f « u t s : 
R4 = Pointer to character to which cursor is to be positioned. 

CHRPOS: MOV R3. -(SP) 

Calculate position of desired character 

CALL COLCLC J Calculate col position of character 

Position cursor there 

CALL CURPOS ; Position cursor 

Remember which character cursor is pointing to 

MOV R4j SLCX ! Save current cursor pointer 

F i n i s h e d 

MOV (SP)+, R3 
RETURN 



TSSLE - 
CURPOS 
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— Move cursor to a specified column 



I 



4 
5 
6 
7 
8 
9 
10 
1.1 

1 c^ 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3q 
39 
40 



010652 0:!0246 



010654 010302 

010656 163702 0000000 

010662 001413 

010664 002404 



010666 004737 010716' 
010672 077203 
010674 000404 



010676 005402 

010700 004737 010764"' 

010704 077203 



1 706 ! 0337 0000000 



010712 012602 
010714 000207 



. SDTTL CURPOS — Move ruTBOr to a specified column 

CURPOS is called to move the cursor to a specified column. 

I n p u t B : 
R3 = Position to which cursor is to be moved. 
SLCCOL = Current cursor position. 

Outputs: 
SLCCOL = Position wht-re cursor has been positioned. 

Cl.iRPOS : MOV R2, - ( SF ) 

Calculate how many columns cursor needs to be moved 

; Get desired column position 

J Calculate number of columns to movi 

.; Br if no movement necessary 

i Br if need to move left 



MOV 


R3, R2 




SUB 


SLCCOL 


, R2 


BEQ 


9* 




BL7 


2* 





Move cursor right 



1$: 



CALL 


CSRRIT 


SOD 


R2, 1* 


im 


4* 



; Move cursor right 1 column 
i Loop if need to move more 



Move cursor left 



2*: 


MEG 


R2 


3$: 


CALL 


CSRLFT 




SOB 


R2, 3* 



Finished move 

4$; MOV R3. SLCCOL 

Finished 

9*: MOV (SP)H-, R2 
RFTURN 



; Get positive column count 
; Move cursor left 1 column 
; Loop if need to move more 



J Save neu.1 cursor position 



f 
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CSKRIT --- Generate covitrol sequence to move cutbot ric}ht 



3 








4 








5 








6 








7 








8 








9 


010716 


010246 




10 








11 








Irl 








13 


010720 


012702 


010754 ' 


14 


010724 


004737 


011566' 


15 


010730 


103002 




16 


010732 


012702 


010760' 


17 








18 








19 








20 


010736 


1 1 2200 




21 


010740 


00140::; 




22 


010742 


004737 


011174' 


23 


010746 


000773 




24 








25 








26 








27 


010750 


012602 




28 


010752 


000207 




29 








30 








31 








32 


010754 


0000 


133 




010757 


000 




33 


010760 


OOOG 


103 


34 









. BBTTL CSRRIT — fetmerate control sequence to move cursor right 

CSRKTr is called to generate the terminal control sequence to move 
the ruTEor right one to3umn. 

Inpt'ts: 
Rl - viob index number. 

CSRRIT: MOV R2, -<SP) 

Get control sequence based on terminal type 

Assume VTIOO terminal 

Is this a VT52? 

Br if not 

Get VT52 control sequence 



MOV 


#MRS100, R2 


CALL 


CHK52 


BCC 


1* 


MOV 


#MRS52, R2 



Send control sequence to terminal 



1$: 



MOVE 


(R2)+, RO 


BEQ 


9* 


CALL 


ECHO 


BR 


1* 


Finished 




MOV 


(SP)+, R2 


RETURN 





; Get next character from sequence 

; Br i f hit end 

; Send to terminal 

i Continue sending 



9$: 

Control sequences 

103 MRSIOO: .BYTE ESC>'C,'C;0 

000 MRS52: . BYTE ESC, 'C, 
. EVEN 



i VTIOO 
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CSRLFT -~ Generate control sequence to move cursor left 

1 . SDTTL CSRLFT -- Generate control sequence to move cursor left 



'J 



3 i CSRLFT is called to generate the terminal control sequence to move 

4 ; the cursor left one column. 

5 ; 

6 ; I n p u 1 5 : 

7 j Rl ■- vJob index number. 

8 i 

9 010764 112700 OOOOOOG CSRLFT: MOVE #BKSPAC. RO i Use backspace character to move to left 

10 010770 004737 011174' CALL ECHO 

11 i 

12 .; F i H i e i i e d 

13 ; 

14 010774 000207 RETURN 



CHKDLM - 

1 

3 
4 



7 
8 
9 
10 
1.1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



010776 010146 
011000 010246 



011002 105700 
011004 001407 



011006 012701 Oil 040 ' 

011012 112102 

011014 00140'.:' 

011016 120002 

011020 001401 

011022 000773 



011024 000261 
011026 000401 



011030 000241 



011032 012602 
011034 012601 
011036 000207 
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- Check for uinrd d(?l imi ter-G 

. SBTTL CHKDLM -~ Chrck f-or ujord delimiterB 

Cher;); to see if a charattpr is a word delimiter. 

1 n p t.i t B : 

RO =■• Character to chcct!. 

OutputB: 

C -fla<i set ==.> Character is a delimiter. 
C-f lag cleared ==> Character is not a delimiter. 



011040 
011043 
011046 



040 
071:' 
056 



CHKDLM: MOV 
MfJV 



R 1 , - < SP ) 
R2> -OP) 



Null is alu)ay& a delimiter 



TSTB 
BEO 



RO 

2* 



;Ig character null? 

.: Br if yes — this is a delimiter 



Search table of delimiters for the character 



1'$: 



MOV 


#WRDDLM, Rl 


MOVB 


< R 1 ) +, R2 


BEQ 


3* 


CMPB 


RO, R2 


BEQ 


2* 


BR 


1* 



Character is a delimiter 



2*: 



SEC 
BR 



9« 



i Character is not a delimiter 
3*: CLC 



9*: 



Point to table of delimiters 

Get next delimiter character 

Br if hit end of table 

Is this character the delimiter? 

Br if yes 

Keep checking 



jSignal that this is a delimiter 



Signal that this is not a delimiter 



F i n i s h e d 




MOV 


<SP)+, R2 


MOV 


(SP)+, 1^1 


RETURN 





47 



oooe 


orj4 


WRDDLM: 


. BYTE 


057 


072 






133 


000 




. EVEN 



Table of word del imi tPT-r- 
■' , TAB/ ■', , '^ 



'L,0 i Word delimiters (null=end) 
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CVTLC — Convert lower -caze characters to upper-case 



SBTTL. CVTLC 



Coiivirrt lower-case characters to upper-case 



P. 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

ca 

23 



CVTLC i. & called to convert loujer-case characters to upper case 

if requested by the currently running program. 

1 n p u t B : 
RO ~ Input character. 

Rl - vJob index numbei-. 

Outputs: 

RO ~ Converted character. 



011052 032761 0000000 OOOOOOG CVTLC: B .IT 
011060 001404 BEQ 

011062 032761 OOOOOOG OOOOOOG BIT 



#*LC.. LSWa(Rl ) 
1* 



011070 001010 



011072 120027 000141 

011076 103405 

011100 1 20027 000 1 72 

1 1 1 04 101 oo;.,i 

011106 042700 000040 



011112 000207 



BNE 



iWas "SET TT LC" done? 

; Br i f not 

#LCBIT) LviSW<Ri ) ; Does program want lower case characters? 
2* i Br if yes — lower-case chars ok 



Translate lower-case character to upper-case 



If: CMPB 


RO, #141 


Bl 


2* 


CMPB 


RO, #172 


BHI 


2* 


BIC 


#40; RO 


i F i n i B h e d 




2%: RETURN 





ils this a lower case letter? 
i Br if not 

■>Mt if not iowe'i — case letter 

; Convert lower-case to upper-case 



( 
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ECOCTL -- Echo a control character 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 

21 
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011114 



01 
01 



01 
01 
01 



1114 
1120 



1124 
1126 

1 1 Oc 



1 1 2700 
004737 



110500 
062700 
004737 



000136 
011174' 



000100 

011174' 



1 1 2700 
004737 



011150 000207 



23 

24 

25 011136 000207 

26 

27 

28 

29 

30 

31 

32 011140 

33 011144 
34 
35 
36 
37 

39 

40 

41 

42 

43 

44 

45 

46 011152 
47 

48 
49 

50 011152 112700 

51 011156 004737 

52 011162 112700 

53 011166 004737 
54 

55 
56 
57 011172 000207 



0000000 
011212' 



0000000 
011212' 
000075 
011212' 



SBTTL ECOCTL 



Etbo a control character 



ECOCTL is called to echo a control character by printing "•'^x" where 



Input K : 
Rl =• -Job index number. 
R^j = Control character 



ECOCTL: 






; Ec b o 


II A 11 






MOVB 


#'■■■■, RO 




CALL 


ECHO 



; Get up-arrotu 
j Ec ho it 



Echo character 



MOVB 


R5, RO 


ADD 


#100. RO 


CALL 


ECHO 



i Get control character 

i Convert to upper -case character 

; Et ho i t 

Finished 

RETURN 

•SBTTL RNGBEL — Riny bell to signal error 

RNGBEL is called to send a bell character to the terminal to signal 

an error condition. 



RNGBEL: MOVB 



#BELL, RO 
ECH02 



i Get bell character 
; S(?nd to terminal 



f- i n i F> h e d 

RETURN 

.SBTTL AKEYON — 1 urn on alternate keypad mode 

AKEYON is called to enable alternate keypad mode. 

Inputs: 
Rl = -Job index number. 

AKEYON: 

Send control sequence to terminal 



; Send Escape as 1st char 

; Send to terminal 

i Send equal sign as 2nd char 



MOVB 


#ESC,RO 


CALL 


ECH02 


MOVB 


#'==, RO 


CALL 


ECH02 


F i n 3 E h e d 




RETURN 





TSSLE — 

ECHO 

.1 
2 
3 
4 

6 
7 
S 

10 

u 

12 
13 
14 
15 
16 
17 

la 

19 
20 
2.t. 
2? 
23 
24 
25 
26 
27 
28 
29 
30 
31 



TSX-Pi 
• Send 
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c h a r a c i; < ' r t o t h b t e f m i r t a 1 



SBTTL ECHO — '3c'Tid character to the terminal 



011174 



1 1 1 74 
011202 
011204 
011210 



ECHO is called to srnd a character to the terminal. 

ECH02 always echoes the character even if character echoing is turned off. 

I n p tj 1 5 : 
Rl ■- -.iob index number. 
RO =• Character to be sent < preserved). 

ECHO: 

See if character echoinp is wanted. 



032761 OOOOOOG OOOOOOG 

001402 

004737 011212'' 

00020/ 9$: 



011212 010046 



011214 



01 



B I T #«ECHO, LSW2 ( R 1 ) 

BEQ 9* 

CALL ECH02 
RETURN 



J, c:.ti.£:a. 



012600 



011224 000207 



i We want character echoing 

> 

ECH02: MOV RO, -(SP) 

i 

> Send character to termivial 

OCALL QUECHR 

F i T'l i fo h e d 

HOV (SP)+, RO 
9*: RETURN 



Is character echoing wanted? 

Sr if not 

Echo the character 



; Save character being echoed 



; Send char to terminal 



; Recover character 



( 



KEYCK ■ 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

16 

17 

IS 

19 

20 

21 
nn 

23 
24 
25 
26 
27 
28 
29 
30 



TSX-Pius Sinyie Line E MACRO V05. 04 Monday 21-Dec~87 07: 4[> Fafle 92 
■ Check to see i f" key is d b f i n e d 



011226 



011226 012500 



011230 105737 OOOOOOG 

011234 001403 

011236 052700 OOOOOOC 

011242 00040r' 

011244 052700 OOOOOOC 



011250 004737 011256' 



011254 00020ti 



. SBTTL KEYCK — Clii-ck to spe if key is defined 



KEYCK is the routine ralJed through the use of the KEYCHK macro. 
It sets up information correctly in registers and calls KEYSRC. 

Form of tho call: 

hJSK R5, KEYCK 
. WORD key_.CDde 

KEYCK: 

Pick up the key cod b . 

MOV (R5)+, RO i Qet key code 

See if gold key has been pressed 



1*: 



TSTB 
BEQ 
BIS 
BR 



SLGOLD ; Has gold key been pressed? 

1* i Br if not 

#KT*GLD*''!00, RO ; Set key type to gold 

2* 

#KT*NRM*400, RO ; Set normal key type 



; See if this key is defined by user 

2*: CALL KEYSRC 
; F i v'l i s h e d 

RIS R5 ; Return to cal Igv 



TSSLE • 
KEYSRC 
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- See if terminal key is defined by us(>r 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
ID 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



011256 



011256 
011262 
011264 
011272 
011274 
011276 



011300 

011302 



011304 
011310 
011314 
011336 
011342 
011344 
011350 
011352 



011366 
1 1 370 



011372 
01 1376 
011412 



011416 
011422 



005737 0000000 

001404 

032761 0000000 0000000 

00 1 002 

000241 

000207 



010246 
010346 



. SBTTL KEYSRC — Bt-t? if terminal key is defined by user 

Determine if a specific terminal key is defined by the user. 
If BO, perform the key siibsti tut ion. 

Inputs : 
RO - Key code to be sifjarthed for. 
Rl = v'ob index number. 

Outputs: 
C-flag set ==> Key was defined; processing has been done for it. 

C-flag cleared ==> Key was not defined. 

KEYSRC: 

See if there are any user-defined keys 

TST KEYPAR ; Are there any user-defined keys? 

BEQ 5* ; Br if not 

BIT #*SLLET>LSW7<R1); Is substitution wanted? 

BME 4* .: Br if yes 

CLC j Signal failure on return 

RETURN 

There are some user-defined keys 



?*: 



4*: 



MOV 
MCiV 



R2, -(SP) 
R3. -(SP) 



Beflin loop to search for the key definition 



013703 ooooooe 

012702 OOOOOOG 

020062 OOOOOOG 

001413 

062702 OOOOOOG 

077306 



1'$: 



MOV 


VKEYMX, R3 


MOV 


#VPAR6, R2 


KEYMAP 




CMP 


RO, KD*CDD<R2) 


BEQ 


2* 


ADD 


#KD**S2, R2 


SOB 


R3, 1* 


KEYUMP 





Key is not defined 



000241 
000415 



1 1 6203 OOOOOOG 
105037 OOOOOOG 



004737 011432' 
000261 



3*: 



CLC 

BR 



9* 



?$: 



We found the key definition 

MOVE KD^FLG ( R2 > , R3 

KEYUMP 

CLRB SLGOLD 



Get max # key definitions allowed 
Point to virtual address of region base 

i Map to key region 

; Is this entry for the key? 

; Br if yes 

J Point to next entry 

i Loop if more to check 
Restore par 6 mapping 



J Signal failure on return 



; ; Get control flags for key def 
Restore par 6 mapping 
Clear gold key flag 



Call routine which substitutes the key definition string 
KEYSUB 



CALL 
SEC 

> F i n i 5 h e d 



i Do the substitution 

; Set flag saying we did a key definition 
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KEYSRC — See if termirial keu is defined bij user 
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< 



5S 

59 011424 

60 011426 01260;? 

61 011430 000207 



9*: 



MOV 


<SP)+, r:hi 


MOV 


(SP)+. RL' 


RETURN 





TSSLE -- 
KEYSUB - 

1 

o 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
lA' 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4S 
49 
50 
51 
52 
53 
54 



- Substitute a 
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defined strinq for a keii 



SBTTL KEYSUB 



Bubsti tute a defined string for a key 



A UB(?T — defined key hab been identified. 

Insert the defined text into the command buffer. 

.1 n p u t E ; 
Rl = Current job index number 
R2 = Pointer to key definition block 
R3 = Control flags from definition block 



011432 
011434 
011436 



011442 
011446 
011450 



010246 
010546 
016146 



132703 
00 1 003 
042761 



OOOOOOG 

0000000 
OOOOOOG OOOOOOG 



KEYSUB: MOV 
MOV 
MOV 



R2, -<BP.l 
R5, -<BP) 
LSW2(R1 ), -<SP) .; Save current LSW2 flag settings 



011456 062702 OOOOOOG 



See if uje should suppress display of this string 

BITB #KF$ECO.. R3 ; Should u^e echo the string? 

.ONE 1* ; Br if yes 

BIC #*ECHO, LSW2<R1) j Suppress echo of string 

Move the characters from the string definition to input line 

1*: ADD #KD*TXT> R2 i Point to key def string 

Get next character from definition string 



011462 
011504 
011506 
011522 
011524 



011526 
011532 



2*: 



112205 

105705 
001403 



004737 
000753 



KEYMAP 

MOVB <R2)+, R5 

KEYUMP 

TSTB R5 

BEQ 5^ 



; ; Map to definition buffer 

; J Get next char from definition string 

Restore par 6 mapping 

Did we reach the end of the string? 

Br if yes 



Process the character as an ordinary received character 



000450 



CALL 
BR 



QRDCHR 
2* 



j Process the character 

i Go see if there are more characters 



011534 
011540 



011542 
011550 



011554 
011560 
011562 
011564 



132700 
00140f5 



1 1 2737 
004737 



012661 
01260?.' 
012602 
000207 



OOOOOOG 



We reached the end of the string. 

See if we should terminate the input line. 



B.rrB #KF*TRM, R3 
BEQ 9* 



; Should we terminate the input line? 

> Br if not 



Terminate the current input line 



000001 OOOOOOG 
005622 ' 



OOOOOOG 



9^: 



MOVB 
CALL 

F i n i G h e d 

MOV 
MOV 
MOV 
RETURN 



#1, SLCR 
ICPCR 



i Say CR-LF received 

i Pretend we received a carriaqe— return 



<SP)+, LSW2<R1 ) ; Restore echo flag 
<SP)+, R5 
(SP)+, R2 



( 



( 
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iE a VT52 



< 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 011566 010246 
13 
14 
15 

16 011570 032761 

17 011576 001010 
18 

19 
20 
21 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



011600 
011604 

011612 



011614 
011616 



011620 000261 



33 
34 
35 

36 011622 012602 

37 011624 000207 

38 000001 
Errors detected: 



. SBTTL CHK52 — Determine if terminal is b VT52 
Determine if the terminaJ is a VT52. 



0000000 OOOOOOG 



1 n p V t B : 
Rl - Job index number 

Outputs ; 
C -flag set if this is a VI 52 
All registers are preserved. 

CHK52: MOV R2, -(SP) 

See if the terminal type is VT52 

BIT #Vr52, LTRMTFMRl); Is the terminal type VT52? 
BNE 5* iBr if yes 

See if uje are emulating o VT52 



116102 0000000 
032762 OOOOOOG 
001002 



000241 
000401 



OOOOOOG 



MOVB 

BIT 

BiME 



LNPRIM(R.l ), R2 ; Get primary job index number 
#*V52EM, LSW11(R2>J Are we emulating a VT52? 



5* 



9$. 



This is not a VT52 

CLC 

BR 9* 

This is a VT52 

SEC 

F i n i s h e d 

MOV (SP)+, R2 

RETURN 

. END 



i Br if yes 



j Signal not VT52 



; Signal that this is a VT52 



■«-*K- Assembler statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







8346 Words < 33 Pages) 

17920 Words ( 70 Pages) 

RT -11 



Elapsed time: 00:01:27.17 

DK: TSSLE, LP: TSSLE-DK: TSBLE. MAC/C/N: SYM 
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Cross reference 


table (CREF 


V05. 04 ) 




















*iESC 


1-24 


59-34 






















i «CTRLW 


1-24 


7- .1. 6 


7-18 


59-30 


59-32 


59-35 














fDBGMD 


1-39 


6-38 






















*DETCH 


1-45 


3-17 






















i *DISCW 


1-39 


3-19 






















liECHO 


1-41 


91- J 4 


94-19 




















*l.C 


1-40 


89-13 






















1 $NDICP 


1-43 


71-14 






















*iMOIN 


1-36 


71-r^C) 






















*NDINT 


1-43 


3~'oi 


71-26 




















1 *NOLF 


1-40 


60-f>i 






















liPWKEY 


1-23 


59-16 






















*SLINI 


1-40 


2-16 


4-62 


65-37 


















i $SLKED 


1-41 


4 -J 3 






















*SLLET 


1-25 


93-20 






















*SUCF 


1-42 


71-;v^J 






















< *V52EM 


1-23 


95-22 






















*VBELL 


1-23 


7-24 






















$WDISP 


1-24 


7-^'5 






















i *XSTOP 


1-35 


71-13 






















AKEYOM 


4-15 


90-46# 






















BELL 


1-38 


90-32 






















< BKSPAC 


1-35 


87-9 






















CHK52 


20-17 


26-22 


29™ 17 


32-17 


63-15 


86-14 


95-12# 












CHKABT 


1-36 


71-22 






















i CHKDLH 


24-29 


24-36 


24-43 


24-58 


24-66 


34-26 


34-30 


34-37 


61-44 


61-62 


88-12# 




CHRPOS 


16-20 


16-34 


17-23 


17-37 


21-50 


23-23 


24-75 


24-107 


25-29 


25-35 


26-43 


33-24 




33-38 


34-64 


34-76 


61-89 


62-30 


62-44 


66-17 


67-54 


68-17 


74-37 


79-31 


80-75 




84-9# 
























CKRDTM 


6-48 


9-13# 






















CKUAC 


6-43 


8~14# 






















( COLCLC 


81-21 


93-lZ'M 


84-13 




















CR 


1-37 


60-43 


60-49 


68-25 


















CSCHK 


5-14 


10-14# 






















1 CSEND 


12-36 


1 3~66# 






















CSFIN 


11-42 


11-70 


12""10# 




















CSICHR 


1-44 


10-25 






















i CSRLFT 


81-70 


85-30 


87~9# 




















CSRRIT 


85-23 


S6-9# 






















CSTBL 


12-18 


13-10# 






















i CTLRTN 


59-41 


59-51 # 






















CTRLQ 


1-33 
























CURPOS 


81-22 


84-17 


85-1 2« 




















i CVTLC 


7-33 


8-26 


89-13# 




















DELCHR 


1-39 


3-37 






















DELLFT 


33-39 


69-28 


74-1 3*J 




















t DOCTRL 


6-55 


59-10# 






















DOSWIT 


1-24 


7-23 






















El 


1 3-33 


37-8# 






















1 E2 


1 3-34 


38-841 






















E3 


13-35 


39-S# 






















E4 


13-36 


40-B# 






















i Er> 


1 3-37 


41-8# 






















E6 


13-38 


42-("<# 






















ECHO 


60-50 


60-54 


81-40 


81-46 


81 "6 5 


86-22 


87-10 


90-15 


90-21 


91-10# 






i ECH02 


68-26 


68~2S 


90-33 


90-51 


90-53 


91-16 


91-22# 













t 



{ 



i 



TSSLE — TSX-Pius Single Line E MACRO V05. 04 Monday 21-Dec-87 07:45 Page S~2 
Cross reference table <CREF V05. 04 ) 



ECOCTL 


65-25 


68-21 


90-1 0« 






ENQTL 


1-42 


73- J 7 








EP52 


ll-22# 


63-17 








EPCHl 


11-12# 


63-14 








EPCH2 


11-15 


11-35 


11~51# 


63-32 


63-45 


ESC 


1-40 


10-lB 


86-32 


86-33 


90-50 


FJO 


1 3-43 


47-B^lf 








Fll 


13-44 


49-8-!l 








F.I. 2 


13-45 


49-B# 








F13 


13-46 


50-0# 








F14 


1 3-47 


51~B# 








F15 


1 3-4S 


52~8# 








F16 


13-49 


53-84^ 








F17 


13-50 


54-3# 








F18 


13-51 


55-0# 








F19 


13-52 


56-8# 








F20 


13-53 


57-8# 








F6 


13-39 


43-8# 








F7 


13-40 


44-0# 








F& 


13-41 


45-B# 








F9 


13-42 


46-8# 








GTSLCH 


1-18 


2-i2# 








ICPBS 


49-24 


59-59 


62-S# 






ICPCR 


22-16 


59-64 


60-9« 


61-15 


94-47 


ICPCSI 


10-27 


63~32# 








ICPCTA 


59-52 


64-5# 








ICPCTC 


59-54 


65-9# 








ICPCTR 


59-69 


59-74 


66™ 5# 






ICPCTU 


59-72 


67-9« 








ICPCTZ 


59-77 


65-15 


6S-9# 






ICPESC 


10-20 


59-78 


63-9# 






ICPLF 


50-24 


59-61 


61 -9# 






ICPNUL 


59-51 


70- 5# 








ICPRUB 


6-59 


69-5*? 








ICPSS3 


10-34 


63-4 5# 








INSERT 


7-43 


21-49 


33-21 


34-75 


61-32 


INTPRI 


1-34 


71-36 


93-39 


93 49 


94-29 


INWAIT 


3-30 


71-3# 








KBS 


6-23 


35~5# 








KBX 


6-33 


36- 5# 








KC*COM 


1-30 


33-10 








KC*DOT 


1-30 


58-9 








KC*DWN 


1-32 


15-10 








KC«E1 


1-27 


37-12 








KC*E2 


1-27 


38-12 








KC$E3 


1-27 


39-12 








KC$E4 


1-27 


40-12 








KC*E5 


1-27 


41-12 








KC$E6 


1-27 


42- 1 2 








KCfENT 


1-30 


22-9 








KC*F10 


1-28 


47-1? 








KC*Fli 


1-28 


48-12 








KC*F12 


1-28 


49-12 








KC*F13 


1-28 


50-1 ;> 








KC*F14 


1-29 


51-12 








KC*F15 


1-29 


52-12 









67-21 69-15 79-19 80-124 



TSSLE — TSX-Plus Sin.uit? Line E MACRO V05. 04 Monday 21-Dec-S7 07:45 Pacie S~3 
Cross reference table <CREF V05. 04 ) 

53- ir^ 
54-i2 
55-12 

57-1,? 

43- 1 2 

44-12 

45-12 

46-12 

23-11 

24-9 

25-9 

26-12 

27-9 

28-9 

29-12 

30-12 

31-12 

32-12 

16-12 

34-12 

18-12 

19-12 

20-12 

21-14 

17-12 

14-12 

93-37 

93-3S 

93-48 

94-23 

23- 5# 

24- 5# 

25- 5# 

26-8# 

27- 5# 

28- 5# 

29-S# 

30-8# 

31-S# 

32-8# 

15-10 16-12 17-12 18-12 19-12 20-12 21-14 22-9 23-11 24-9 25-9 

27-9 28-9 29-12 30-12 31-12 32-12 33-10 34-12 37-12 38-12 39-12 

41-12 42-12 43-12 44-12 45-12 46 12 47-12 48-12 49-12 50-12 51-12 

53-12 54-12 55-12 56-12 57-12 53-9 92-10# 

29-22 33-5# 

58- 5# 

32-22 34-5# 

5-26 93-18 93-34 94-27 
92-26 93-14=ti 
94-1 1# 
94-17 
94-41 

93-34 93-34# 93~39# 93-49* 94-27 94-27* 94-29* 
92-20 

5-31 



KC*F16 




-29 


KC*F17 




-29 


KC*F1S 




-29 


KC*F19 




-29 


KC$F20 




-29 


KC*F6 




-28 


KC*F7 




-28 


KC*F8 




-28 


KC*F9 




-28 


KC*KPO 




-31 


KC*KP1 




-31 


KC*KP2 




-31 


KC$KP3 




-31 


KC*KP4 




-31 


KC*KP5 




-31 


KC*KP6 




-31 


KC*KP7 




-32 


KC*KP8 




-32 


KC*KP9 




-32 


KC$LFT 




-32 


KC*MIN 




-30 


KC*PF1 




-30 


KC*PF2 




-30 


KC*PF3 




-30 


KC*PF4 




-30 


KC$RIT 




-32 


KC*UP 




-32 


KD**SZ 




-26 


KDfCOD 




-26 


KD*FLG 




-26 


KD*TXT 




-26 


KEYO 


13- 


-23 


KEYl 


13- 


-24 


KEY2 


13- 


-25 


KEY3 


13- 


-26 


KEY4 


13- 


-27 


KEYS 


13- 


-28 


KEY6 


13- 


-29 


KEY7 


13- 


-30 


KEYS 


13- 


■31 


KEY9 


13- 


-32 


KEYCK 


14- 


-12 




26- 


-12 




40- 


-12 




52- 


-12 


KEYCOM 


13- 


-20 


KEYDOT 


13- 


-22 


KEYMIN 


13- 


-21 


KEYPAR 


i" 


-33 


KEYSRC 


5- 


-34 


KEYSUB 


93- 


-54 


KF*ECO 




-26 


KF*TRM 




-26 


KPAR6 




-37 


KT*GLD 




-27 


KT*GLT 




-25 



{ 



( 



TSSLE — TSX-Plus SinHle? Line E MACRO V05. 04 Monday 21-Dec-S7 07:4b Paae S~4 
Cross reference table (CREF V05. 04) 



i 



KT*LET 


1-25 


5-;i3 


























KT*NRM 


1-27 


92~PP 


























L ACT IV 


1-37 


71-24 


























LAFSIZ 


1-39 


73~40tv 


77-53 


80-80 


82-31 




















LCBIT 


1-40 


89-15 


























LCOL 


1-34 


4-48 


60-62'fi- 


73-35* 






















LF 


1-33 


60-44 


60-53 


68-27 






















LF«IN 


1-34 


65-29 


73-21 
























LFWLIM 


1-33 


73-39)^ 


82-23 
























LHIPCT 


1-34 


2-53^* 


71-28* 
























LINCNT 


1-41 


3-24 


























LINFIN 


8-47 


9-34 


60-58 


68-41 


73~8# 


77-58 


80-89 
















LINPNT 


1-38 


3-36 


























LITIME 


1-42 


2~54K- 


71~29& 
























LJSW 


1-40 


89-15 


























LNPRIM 


1-23 


95-21 


























LNSPAC 


1-30 


8- J 9 


























LOGCHR 


1-38 


65-32 


73-26 
























LOGCR 


1-36 


65-33 


























LOGFLG 


1-34 


65-29 


73-21 
























LRBFIL 


1-34 


81-64 


























LRTCHR 


1-41 


9-17 


9-38 «• 
























LSCCA 


1-41 


65-13 


























LSPACT 


1-35 


8-30 


























LSTATE 


1-42 


73-14 


























LSW 


1-45 


3-17 


3-19if 


59-34* 






















LSWIO 


1-43 


71-14*-- 


























LSW 11 


1-23 


59-16 


95-22 
























LSW2 


1-40 


89-13 


91-14 


94-13 


94-19* 


94-51* 


















LSW3 


1-36 


7-16 


7-1 Si!- 


59-30 


59-32* 


59-35* 


71-20* 
















LSW6 


1-33 


6-38 


7-25 


60-51 


71-13* 




















LSW7 


1-40 


2-16 


2-51 


4-13 


4-62* 


65-37* 


71-26 


93-20 














LSW9 


1-42 


7-24 *^ 


71-21+> 
























LTRMTP 


1-33 


95-16 


























LTTPAR 


1-36 




























LWINDO 


1-25 


59-18 


























MAPHLD 


1-119# 


93-34-1.^ 


93-39 


93-49 


94-27* 


94-29 


















MAXLEN 


77-32 


80-4^1 


S2-15# 
























MAXSEC 


1-24 


7-21 


























MRS 100 


86-13 


86-32# 


























MRS 52 


86-16 


86-33# 


























NEDCDI 


1-44 


71-15*- 


























ORDCHR 


5-40 


6-9# 


94-35 
























OSTRIK 


7-39 


79-94} 


























OVRHC 


1-39 


3-37 


7-23 


7-27 


59-23 


65-32 


65-33 


71-19 


73- 


-26 


91-26 








PAINT 


21-42 
77-49 


23-47 
79-26 


24-96 
80-70 


34 60 

81-14*} 


60-34 


61-85 


62-29 


62-42 


65- 


-21 


66-12 


67-50 


74- 


-33 


PR7 


1-36 


71-23 


93-34 


94-27 






















PRCHAR 


3-43 


5-a# 


























PSW 


1-37 


71-23* 


71-36* 


93-34* 


93-39* 


93-49* 


94-27* 


94-29* 














QHDSPN 


1-37 


71-31 


























QUECHR 


1-40 


91-26 


























REGCHR 


6-61 


7-94t 


59-53 


59-55 


59-56 


59-57 


59-58 


59-60 


59- 


-62 


59-63 


59-65 


59- 


-66 




59-67 


59-68 


59-70 


59-71 


59-73 


59-75 


59-76 


59-79 


59- 


-80 


59-81 


59-82 






RWGBEL 


11-57 


12-41 


1 5-43 


19-17 


20-22 


22-27 


24-112 


26-48 


29- 


■•26 


30-17 


31-17 


32- 


-26 




34-81 


37-18 


38-18 


39-18 


40-18 


41-18 


42-18 


43-18 


44- 


-18 


45-18 


46-18 


47- 


-18 



TSSLE — TSX~Plus Sinqle Line E MACRO V05. 04 
Cross reference table (CREF V05. 04 ) 



Monday 21-Dec-S7 07:45 Paye S~5 



RSTCHR 

RSTLIN 

RUBOUT 

S*INWT 

S*TTFN 

SAVLIN 

SIGWAT 

SLBACR 

SLCBUF 

SLCCOL 

SLCR 

SLCSBF 

SLCSBX 

SLCSPT 

SLCSR 

SLCX 



SLCYCl 
SLCYC2 
SLDBUF 
SLDOWN 
SLEBUF 



SLECOL 
SLGOLD 



SLINCH 

SLINIT 

SLLBUF 

SLLEMD 

SLLPTR 

SLMVDN 

SLMVUP 

SLMXLN 

SLOPTR 

SLOVER 

SLRPTR 

SLSBUF 

SLSCOL 

SLSPTR 

SS3CHR 

STOP 

TAB 

TCDOWN 

TCENTR 

TCINVL 

TCLEFT 



48-18 

77-19 

77-25 

4-68 

1-43 

1-38 

1-42 

8-40 

1-33 

1-41 

1-33 

1-36 

1-41 

1-44 

1-44 

1-44 

1-44 

1-35 

26-27 

69-21 



1-39 
1-23 
1-38 
35-11 
72-11 
1-35 
1-37 
16-21* 
23-16 
31-ie-K- 
42-19* 
52-19# 
62-19* 
2-39 
2-lS 
1-34 
1-43 
1-43 
14-27 
14-42 
1-38 
1-35 



1-41 

1-36 

1-23 

1-44 

1 -36 

1-35 

13-12 

13-15 

22-23# 

13-14 



49-30 
77-35 
77-42 
14-30 
6-57 
71-30 
73-14 
60-38 
71-19 
4-35* 
7-4 1 
4-51* 
4-R7* 
12-22 
11-55 
11-12 
4-31* 
4-44* 

33-22 
74-19 
14-20 
14-23 
21-32 
14-39 

4-43* 
61-41 
72-37 
4-50* 
4-23* 
17-17 
23-29* 
32-27* 
43-19* 
53-19* 
67-15 
3-12# 
2-33 
4-57 
72-18 

4-58* 

1 5-24 

14-50 

82-19 

2-22 

4-39* 

4-66 

35-12 

4-49*i- 

4-55 

10-32 

3-20 

81-28 

13-5;^ 

22- D# 

13-57 



50-30 
80-28 
78"12# 
14-46 



73-16 
68-32 

24-21 

7-48* 
81-75* 
22-15* 
63-19 

11-14* 
5-19 
8-41 
33-30 
79-14 
14-25 
1 5-26* 
21-48 
14-41* 
4-44 

61-50 
73-23 
73-35 
5-29 
17-24* 
24-14 
33-15 
44-19* 
54-19* 
67-22* 

4-8# 
72-20 
72-35 
14-22 
15-37 
75-12# 

2-47* 

7-37 
4-69* 

36-9 
83-17 
4-57* 

65-38 
83-27 
13-59 



13-61 



51-18 
80-50 

15-56 



72-6# 

24-100 

33-20 

85-17 

60-14 

63-33 

1 1 -22 
7-49* 
9-28 
34-17 
80-33 
1 5-25* 
72-54* 
23-37 
1 5-22 
16-19 
61-59 
73-31 
81-57 
6-13 
18-17 
24-80* 
33-25* 
45-19* 
55-19* 
69-9 



72-33 
72-45 
1 4-28* 
1 5-48 



4-19* 
64-5 



4-58 



88-46 
1 5-5# 



16-S# 



52-18 53-18 54-18 55-18 

90-32# 



56-18 



57-18 



58-15 



-24 



36-10 



77-57 

25-20 

33-36* 

85-35* 

60-19* 

63-46 

1 1 -34* 

11-15* 

16-27 

34-73 

80-59 

72-53* 



34 
15 
16 
62 
74 



-45 

-34 

-28 

^-20 

20 



81-76* 
6-22* 
18-19* 
25-14 
34-18 
46-19* 
56-19* 
69-16* 



72-43 
75-17 
14-35 
76-12# 



73-31* 
64-7* 



14-29* 



77~S# 



80-88 

«i.6— 28 
69-14 

60-25* 



11-51 

11-35* 

17-19 

60-32 

80-82 



34-74 
1 5-36* 

23-22 
65-19 
77-40 

6-32* 
18-24* 
25-40* 
34-69* 
47-19* 
57-19* 
92-18 



75-19 
75-25 
14-51* 



64-9* 



1 5—26 



27-19* 

69-27* 

61-14 



1 1 -76* 

11-58* 

17-30 

60-39 

81-56* 



61-31 
72-59* 
24-50 
66-11 
77 48 

7-50* 
19-18* 
26-17 
35-10* 
48-19* 
58-16* 
93-50* 



75 ■■27 
75--37 
15-21 



1 5--27* 



28-19* 
74-26* 

94-46* 



63-19* 

12-14* 

21-19 

61-39 

84-21* 



61-70 

24-55 
67-29 
80-42 

14-17 

20-23* 

26-49* 

37-19* 

49-18 

60-26 



75-35 
76-19 
1 5-28* 



15-41 



79-17 



63-35* 
63-18* 
23-30 
62-12 



67-20 

24-63 
67-34 
80-85 

14-19* 

21-20 

27-14 

38-19* 

49-29* 

60-31* 



76- 
76- 
15- 



■17 
■30 
■33 



72-17 



63-48* 
63~32* 
24-20 
66-10 



67-35 

24-104 

67-43 

83-16 

15-15 

21-51* 

28-14 

39-19* 

50-18 

61-26 



76-28 
76-37 
1 5-52* 



63-45* 

24-81 

67-28 



25-34 
67-49 



1 5-20* 
22-14* 
29-27* 
40-19* 
50-29* 
61-33* 



76-39 
70-20 
72-58* 



25-25 
68-13 



72-39* 



26-40 
69-22 



16-17 

22-31* 

30-18* 

41-19* 

51-19* 

62-13 



78-22 



72-58 



>8-24 



V 



< 



TSSLE — TSX-FlUB Single Line E MACRO VOS. 04 Monday 21-Dec-a7 07: 4l> Page S-6 
Cross reference table <CREF V05. 04) 



TCPFl 


13-16 


1 3-6; ' 


1 S-S# 






TCPF2 


13-17 


13-63 


19-8# 






TCPF3 


13-18 


1 3-64 


20-8# 






TCPF4 


13-19 


13-65 


20-18 


21-S# 


25-41 


TCRITE 


13-13 


13-56 


1 3-60 


1 7~8# 


27-24 


TCUP 


13-11 


13-54 


13-58 


14~S# 




TSSLE 


l-6# 










VINTIO 


1-37 


2-53 


71-28 






VKEYMX 


1-26 


93-32 








VPAR6 


1-32 


93-33 








VQUANl 


1-42 


2-54 


71-29 






VTIOO 


1-42 










VT52 


1-35 


95-16 








VVLSCH 


1-24 


59-28 








VVPWCH 


1-25 


59-14 








WINDSP 


1-24 


7-27 








WINPRT 


1-25 


59-23 








WRDDLM 


88-22 


88-46# 









TSSLE — TSX-PluB Single Line E MACRO V05. 04 Monday 21-De(:-87 07:45 Paqe n-l 
Cross reference table (CREF VOS. 04) 



DISABL 


l-49# 


71-r?3 


93-34 


94-27 


















ENABL 


1~53# 


71-36 


93-39 


93-49 


94-29 
















ESCSEQ 


13~4# 


13-11 


13-12 


13-13 


13-14 


13-15 


13-16 


13-17 


13-18 


13-19 


13-20 


13-21 




13-22 


1 3-23 


13-24 


13-25 


1 3-26 


13-27 


1 3-28 


13-29 


13-30 


13-31 


13-32 


13-33 




13-34 


13-35 


1 3-36 


1 3- -37 


13-38 


13-39 


1 3-40 


13-41 


13-42 


13-43 


13-44 


13-45 




13-46 


1 3-47 


13-43 


1 3-49 


13-50 


13-51 


13 --52 


13-53 


13-54 


13-55 


13-56 


13-57 




13-58 


13-59 


13-60 


13-61 


1 3-62 


13-63 


13-64 


13-65 










KEYCHK 


1-112# 


14-12 


15-10 


16-12 


17-12 


18-12 


19-12 


20-12 


21-14 


22-9 


23-11 


24-9 




25-9 


26-12 


27-9 


28-9 


29-12 


30-12 


31-12 


32-12 


33-10 


34-12 


37-12 


38-12 




39-12 


40-12 


41-12 


42-12 


43-12 


44-12 


45-12 


46-12 


47-12 


48-12 


49-12 


50-12 




51-12 


52-12 


53-12 


54-12 


55-12 


56-12 


57-12 


5S-9 










KEYMAP 


l-97# 


93-34 


94-27 




















KEYUMP 


1-103# 


93-39 


93-49 


94-29 


















OCALL 


1~57# 


3-37 


7-23 


7-27 


59-23 


65-32 


65-33 


71-19 


73-26 


91-26 






TTMAP 


i-e5# 
























TTMAPX 


1-7S# 
























UNMAP 


l-90# 
























UNMAPX 


i~e2# 

























( 



^ 



